• Mit Rechtsklick im Kontextmenü 
• Neu/Microsoft Office Access 2007 Datenbank

Legen Sie eine neue Microsoft Office Access 2007 Datenbank an und vergeben der Datendatei den Namen: Address.accdb.

• ein Navigieren durch die Datensätze (Vor- und Zurück-Symbole)
• das Hinzufügen neuer Datensätze (gelbes Plus-Symbol +)
• das Löschen von Datensätzen (rotes Kreuz-Symbol x)
• das Speichern der geänderten Tabellendaten (Diskettensymbol)

Public Class Form1
  Private Sub Form1_Load(ByVal sender As System.Object, _
    ByVal e As System.EventArgs) Handles MyBase.Load
     'TODO: Diese Codezeile lädt Daten in die Tabelle
     '"AddressDataSet.tblAddress". Sie können sie bei Bedarf
     'verschieben oder entfernen.
    Me.TblAddressTableAdapter.Fill(Me.AddressDataSet.tblAddress)
  End Sub
End Class

• ein Navigieren durch die Datensätze der Tabelle
• das Hinzufügen neuer Datensätze
• das Löschen von Datensätzen
• das Speichern der geänderten Tabellendaten

Folgende Datenbankobjekte wurden instanziert:

• AddressDataSet
• TblAddressBindingSource
• TblAddressTableAdapter
• TableAdapterManager
• TblAddressBindingNavigator

Im Hintergrund wurden im Code zwei Ereignisprozeduren angelegt. Mit der Methode Fill werden im Load-Event die Daten aus der Tabelle geladen. Mit dem Click-Event von TblAddressBindingNavigatorSaveItem werden bei einem Klick auf das Speicher-Symbol im Navigator (Diskettensymbol) alle Änderungen in der Datenbank gespeichert (Methode UpdateAll des TableAdapterManagers).

Private Sub TblAddressBindingNavigatorSaveItem_Click(ByVal sender
   As System.Object, ByVal e As System.EventArgs) Handles
   TblAddressBindingNavigatorSaveItem.Click
  'Speichern über das Diskettensymbol des Navigators
  Me.Validate()
  Me.TblAddressBindingSource.EndEdit()
  Me.TableAdapterManager.UpdateAll(Me.AddressDataSet)
End Sub

Private Sub EingabeDialog_Load(ByVal sender As System.Object,
   ByVal e As System.EventArgs) Handles MyBase.Load
   'TODO: Diese Codezeile lädt Daten in die Tabelle
   '"AddressDataSet.tblAddress". Sie können sie bei Bedarf
   'verschieben oder entfernen.
  Me.TblAddressTableAdapter.Fill(Me.AddressDataSet.tblAddress)
End Sub

Private Sub btnOk_Click(ByVal sender As System.Object, ByVal e
   As System.EventArgs) Handles btnOk.Click
   'Alles speichern
  Me.Validate()
  Me.TblAddressBindingSource.EndEdit()
  Me.TableAdapterManager.UpdateAll(Me.AddressDataSet)
   'Schließen
  Close()
End Sub

Private Sub btnShowEingabeDialog_Click(ByVal sender As
   System.Object, ByVal e As System.EventArgs) Handles
   btnShowEingabeDialog.Click
  'Den EingabeDialog öffnen
  My.Forms.EingabeDialog.ShowDialog()
End Sub

 'Wird benötigt, um die Änderungen im EingabeDialog anzuzeigen
Private Sub Form1_Activated(ByVal sender As Object, ByVal e
   As System.EventArgs) Handles Me.Activated
   'Daten neu laden
  Me.TblAddressTableAdapter.Fill(Me.AddressDataSet.tblAddress)
End Sub