Dim dDB as DAO.Datebase
Dim WS As DAO.Workspace
Dim RS As DAO.Recordset
 
' --- Dieser Bereich funktioniert gar nicht
    'DBEngine.SystemDB = "PR.mdw"
    'DBEngine.DefaultUser = "PR"
    'DBEngine.DefaultPassword = ""
' ---
 
    Set WS = DBEngine.CreateWorkspace("PR", "PR", "", dbUseJet)
    Set dDB = WS.OpenDatabase(fSource, False, True, ";pwd=123")
    Set RS = dDB.OpenRecordset("SELECT * FROM Unternehmensdaten")
 
    MsgBox RS("id")
 
    dDB.Close
    Set dDB = Nothing
    Set RS = Nothing

------------
mosch