Dim res As Integer
        Dim sql As String = "Insert into MyTable (first_name, last_name) Values(" & _
          "?, ?)"
        Dim cmd As New OleDbCommand(sql, conn)
        cmd.Parameters.Add("p1", firstNameVar)
        cmd.Parameters.Add("p2", lastNameVar)
        Try
            conn.Open()
            res = cmd.ExecuteNonQuery()
        Catch ex As Exception
            MsgBox("Fehler! " & ex.Message)
        Finally
            conn.Close()
        End Try

________
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