I am having a problem with the insert of the following code. I am getting the error:

"Data Type Mismatch in Criteria Expression"

I think the issue is with the Date but I don't know what I need to do to correct it.

Code:
        Dim Project As String = Guid.NewGuid.ToString.ToUpper()
        Dim Program_Name As String = "BRX999B"
        Dim Turnover_date As Date = Now()
        Dim objCommand As OleDbCommand = New OleDbCommand

        'intPosition = objCurrencyManager.Position


        objConnection = New OleDbConnection(strConnectionString)
        objConnection.Open()
        objCommand.Connection = objConnection
        objCommand.CommandText = "Insert into Projects" & _
        "(PDF_Number, Programs, Test_Plan, Turnover_date)" & _
        "Values(@PDF_Number, @Programs, @Test_Plan, @Turnover_date);"

        objCommand.Parameters.AddWithValue("@PDF_Number", Project)
        objCommand.Parameters.AddWithValue("@Programs", Program_Name)
        objCommand.Parameters.AddWithValue("@Test_Plan", "C:\Documents and Settings\e352532\My Documents\DB\Projects.mdb")
        objCommand.Parameters.AddWithValue("@Turnover_date ", Turnover_date)


mfb

__________________
mfb

You need to set the object command type to say if it is either a stored proc or a text command that is going to be run to start with. If your going to use a stored proc, then the commandtext needs to reference the stored proc name. If your not using a stored proc and set the commandtext as you have it, then you do not need to declare the parameters as they serve no value. In you commandText as you currently have it, you have not declared the Values part correctly.

"Values(" & Project & ",'" & Program_name & "',.......