Dim NA As Workspace
    Set NA = DBEngine.CreateWorkspace("TempArbeitsbereich", "System", "sesam")
    DBEngine.Workspaces.Append NA
 
    Dim DB As Database
    Dim Rs As Recordset
    Set DB = OpenDatabase(App.Path & "\RAMREGIO.mdb")
    Set Rs = DB.OpenRecordset("SELECT LastAuID FROM LAD")
    MsgBox Rs.Fields("LAD").Value