Public Function DB_Create(sDataFile As String)
    ' Datenbank erstellen (Access 2000)
    If FileExists(sDataFile) Then Kill sDataFile
    DBEngine.SystemDB = App.Path & "\system.mdw"
    Set oDB = DBEngine.CreateDatabase(sDataFile, dbLangGeneral, dbEncrypt + _
      dbVersion40)
End Function