Function dbÖffnen(Liste As String)
 
    Public Db As Database
    Public Tabelle As Recordset, rs As Recordset
    Public dbFile As String, SQL As String, dbPasswort As String
 
    ' Routine für den Datenbank Zugriff
    ' Liste = die gewünschte Tabelle in der db
 
 
    dbFile = App.Path + "\dk.MDB"
    Set Db = Workspaces(0).OpenDatabase(dbFile, False, False, ";pwd=" & _
      dbPasswort)
    Set Tabelle = Db.OpenRecordset(Liste)
 
End Function