Dim dbE As New dao.DBEngine
            Dim ws As dao.Workspace
            Dim db As dao.Database
 
            If IO.File.Exists(DatabasePath) Then    'Datenbank existiert bereits
                Return True
            End If
 
            dbE.SystemDB = System_MDW
            ws = dbE.CreateWorkspace("", UserName, Password)
            db = ws.CreateDatabase(DatabasePath, dbLangGeneral)
            db.Close()
            db = Nothing
            ws.Close()
            ws = Nothing
            dbE = Nothing