Dim con As New OleDb.OleDbConnection("Provider =" & _
      "microsoft.Jet.oledb.4.0;data Source = C:\db.mdb")
 
  'einen Data-Adapter erzeugen
    Dim Adapter As New OleDb.OleDbDataAdapter("select * from ADR", con)
 
    'command Builder Objekt z
    Dim CM As New OleDb.OleDbCommandBuilder(Adapter)
 
    'eine Datentabelle erzeugen
    Dim DT As New DataTable()
 
 
    Private Sub GridFuellen_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles GridFuellen.Click
 
             Adapter.Fill(DT)
             DataGrid1.DataSource = DT
 
       End Sub
 
Private Speichern_Click(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles Speichern.Click
 
 
        con.Open()
        Adapter.Update(DT)
        con.Close()
 
 
    End Sub