Option Explicit
 
Public dbFilename As String
 
Public DB As Database
Public Table As TableDef
Public F As Field
 
Public Sub OpenDatabase()
    dbFilename = App.Path + "\mdb\" + "keywords.mdb"
    'Set DB = Workspaces(0).CreateDatabase(dbFilename, dbLangGeneral, dbEncrypt 
    ' + dbVersion30)
    Set DB = Workspaces(0).OpenDatabase(dbFilename, False, False)
    Set Table = DB.OpenRecordset("command")       // Die Fehlermeldung (s.u.) _
      bezieht sich auf diese Zeile
    DB.Close
End Sub
 
Private Sub Form_Load()
    OpenDatabase
    End
End Sub