Dim con As New OleDb.OleDbConnection
    Dim cmd As New OleDb.OleDbCommand
    Dim adapter As New OleDb.OleDbDataAdapter
    Dim myDataSet As New DataSet
 
Private Sub frmMain_Load(ByVal sender As System.Object, ByVal e As _
  System.EventArgs) Handles MyBase.Load
        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data" & _
        "Source=X:\Datenbank.mdb"
        cmd.Connection = con
        cmd.CommandText = "select * from Tabelle"
 
        'Datenbank in DataGriedView ansehen
        adapter.SelectCommand = cmd
        adapter.Fill(myDataSet, "Tabelle")
        DataGridView1.DataSource = myDataSet
        DataGridView1.DataMember = "Tabelle"
End Sub
 
 
    Private Sub Update_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Update.Click
 
        'Neuen Eintrag von DataGridView in Datenbank eintragen
        Dim cmdb As OleDbCommandBuilder = New OleDbCommandBuilder(adapter)
        adapter.Update(myDataSet, "Tabelle")
 
        'DataSet zuvor leeren, da die neuen Einträge nur rangehängt werden
        myDataSet.Clear()
 
        'Datenbank in DataGriedView ansehen
        adapter.SelectCommand = cmd
        adapter.Fill(myDataSet, "Tabelle")
        DataGridView1.DataSource = myDataSet
        DataGridView1.DataMember = "Tabelle"
    End Sub