Dim dr As DataRow = dt1.NewRow
        dr("CustomerID") = "LILAS"
        dr("EmployeeID") = 3
        dr("OrderDate") = Now
 
        dt1.Rows.Add(dr)
        cm1.Position = cm1.Count - 1
 
        Dim dr1 As DataRow = CType(cm1.Current, DataRowView).Row
        dr1.Delete()
        cb = New OleDb.OleDbCommandBuilder(da1)
 
        Try
            da1.Update(ds, "Orders")
        Catch ex As System.Exception
            MsgBox("Update failed: " + ex.Message)
        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