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

__________________
mfb

Now() will return a full date string like 2/11/07 3:45 PM, make sure that your date/time field can handle this.



Only two things are infinite, the universe and human stupidity, and I'm not sure about the former.
Albert Einstein
US (German-born) physicist (1879 - 1955)

do you have your date field set to a timestamp. you are trying to insert a variable that cannot be inserted into that field. basically you might be trying to insert a string into an integer field.