Public conn As ADODB.Connection
 
Public Sub Main()
    'Verbindungsobjekt erzeugen und die Verbindung zu Datenbank aufbauen
    Set conn = New ADODB.Connection
    conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & _
      "/Database.mdb"
End Sub