Dim WS As Workspace
    Dim DB As Database
    Dim DBPath As String
    Dim MdwPath As String
 
    DBPath = "Pfad zur Datenbank"
    MdwPath = "Pfad zur mdw"
 
    DBEngine.SystemDB = MdwPath
 
    'Workspace Name="WS"; User="VB"; Passwort "lala"
    Set WS = DBEngine.CreateWorkspace("WS", "VB", "lala", dbUseJet)
    Set DB = WS.OpenDatabase(DBPath, False)