Dim objZeile As DataRow
 
//Um automatisch Update-,Inserts- oder DeleteCommands zu erstellen, gibt es den
// Commandbuilder, welchem du deinen DataAdapter zuordnest.
// Der CommandBuilder benötigt den SelectCommand deines DataAdapter um sich
// die anderen Strings zu erstellen
 
Dim myCommandBuilder as new OleDb.OleDbCommandBuilder(objDataAdapter)
 
        objZeile = objdataset.Tables("t_Kunden").NewRow()
        With objZeile
            .Item("kdid") = txtkdid.Text
            .Item("vorname") = txtvorname.Text
            .Item("name") = txtname.Text
            .Item("adresse") = txtadresse.Text
            .Item("ort") = txtort.Text
        End With
        objdataset.Tables("t_Kunden").Rows.Add(objZeile)
 
// Ein EndInit() um die Initialisierung des Datagrids zu beenden
        objdataset.endinit()
 
        objdataadapter.Update(objdataset, "t_Kunden")