Private Sub insert(ByVal custid As String, ByVal empid As Integer, ByVal _
      odate As Date)
        Dim sql As String = "INSERT INTO Orders (CustomerID, EmployeeID," & _
        "OrderDate) VALUES(?, ?, ?)"
        Dim cmd As New OleDb.OleDbCommand(sql, conn)
        cmd.Parameters.Add("p1", custid)
        cmd.Parameters.Add("p2", empid)
        cmd.Parameters.Add("p3", OleDb.OleDbType.Date).Value = odate
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Insert failed: " & ex.Message)
        Finally
            conn.Close()
        End Try
    End Sub

    Private Sub insert1(ByVal custid As String, ByVal empid As Integer, ByVal _
      odate As Date)
        Dim sql As String = "INSERT INTO Orders (CustomerID, EmployeeID," & _
        "OrderDate) VALUES('" & custid & "', " & empid & ", #" & odate.ToString( _
        "MM/dd/yyyy") & "#)"
        Dim cmd As New OleDb.OleDbCommand(sql, conn)
        Try
            conn.Open()
            cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Insert failed: " & ex.Message)
        Finally
            conn.Close()
        End Try
    End Sub

________
Alle Angaben ohne Gewähr. Keine Haftung für Vorschläge, Tipps oder sonstige Hilfe, falls es schiefgeht, nur Zeit verschwendet oder man sonst nicht zufrieden ist