Dim da As OleDb.OleDbDataAdapter
    Dim ds As New DataSet
    Dim dt As DataTable
 
    Private Sub MainForm_Load(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles MyBase.Load
 
        Dim conn As New OleDb.OleDbConnection( _
          "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=nwind.mdb")
        da = New OleDb.OleDbDataAdapter("Select * From Orders", conn)
        da.Fill(ds)
        dt = ds.Tables(0)
        TextBox1.DataBindings.Add("Text", dt, "ShipName")
 
    End Sub
 
    Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button3.Click
        Dim cb As New OleDb.OleDbCommandBuilder(da)
        Me.BindingContext(dt).EndCurrentEdit()
        Dim cnt As Integer = da.Update(ds)
    End Sub

________
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