private da As OleDbDataAdapter 
        private dt As DataTable
        SqlString = "Select name, vorname, alter from kunden where ort =" & _
          "'Entenhausen'"
        ds = New DataSet()
        da = New OleDbDataAdapter(Me.SqlString, conn) 'DataObjekt erzeugt
 
        da.Fill(ds, "KundenDaten")                 
        dt = ds.Tables.Item("ArtikelDaten")
 
        ' Sätze ändern...
 
        Dim cb As New OleDbCommandBuilder(da)
        da.Update(ds, "KundenDaten")

________
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