da.Update(tbl)

        da.Fill(ds, "Test") 
        ' ...
        da.Update(ds, "Test")

        Dim con As String = "...."
        Dim strSql As String = "SELECT * FROM Test"
 
        Dim da As New OleDbDataAdapter(strSql, con)
        Dim myCommandBuilder As New OleDbCommandBuilder(da)
        Dim tbl As DatenDataSet.TestDataTable = DatenDataSet.Test
        da.Fill(tbl)
 
        tbl(0).Name = "Meier"
        ' ...
 
        da.Update(tbl)

________
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