Dim cn As New OleDb.OleDbConnection
        Dim dbinsert As New OleDb.OleDbCommand
 
        cn.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" _
          & Application.StartupPath & "\DB.accdb;Jet OLEDB:Database" & _
          "Password=Test;"
 
        'Verbindung wird geöffnet 
        cn.Open()
 
        dbinsert.CommandText = "INSERT INTO Stunden ( [Feld1], [Feld2]," & _
          "[Feld3], [Feld4] ) VALUES(?,?,?,?)"
 
        dbinsert.CommandType = CommandType.Text
        dbinsert.Connection = cn
 
        With dbinsert.Parameters
            .Clear()        ' Alle Parameter entfernen, die eventuell von 
            ' früherern Aufrufen vorhanden sind 
            .Add("", OleDb.OleDbType.VarChar).Value = Feld1
            .Add("", OleDb.OleDbType.DBDate).Value = Feld2
            .Add("", OleDb.OleDbType.VarChar).Value = Feld3
            .Add("", OleDb.OleDbType.VarChar).Value = Feld4
        End With
 
        dbinsert.ExecuteNonQuery()
 
        Dim query2 As String = "Select @@Identity"
 
        dbinsert.CommandText = "Select @@Identity"
        Daten_neu = dbinsert.ExecuteScalar()
 
        cn.Close()

________
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