Dim rs As Data.OleDb.OleDbDataAdapter
    Public cm As CurrencyManager
    'Anbindung an die Access - Datenbank 
    Dim dbTreiber As String = "Microsoft.Jet.OLEDB.4.0"
    Dim dbQuelle As String = Application.StartupPath & "\Data\db1.mdb"
    Dim conn As New OleDb.OleDbConnection("Provider=" & dbTreiber & "; Data" & _
      "Source=" & dbQuelle)
    Dim da As New OleDbDataAdapter("SELECT * FROM tbKontaktdaten", conn)
    Dim ds As New DataSet()