Private Sub Command1_Click()
  Dim Db As Database
  Dim dbFile As String
 
  ' Falsch
  dbFile = App.Path = "\ADRESS.MDB"
 
  ' Richtig
  dbFile = App.Path & "\ADRESS.MDB"
 
  Set Db = Workspaces(0).CreateDatabase(dbFile, dbLangGeneral, _
  dbEncrypt + dbVersion30)
End Sub