Dim Cmd As OleDbCommand = conn.CreateCommand
Dim myAdap As New OleDbDataAdapter("Select * from Tabelle1", conn) '
Dim myCBilder As New OleDbCommandBuilder(myAdap)
Dim dr() As DataRow = {ds.Tables("Tabelle1").Rows(i)}
myAdap.Update(dr)