Public Sub Main()
    Dim PDBEngine As New DAO.PrivDBEngine
    Dim wrk1 As DAO.Workspace, wrk2 As DAO.Workspace
    Dim db1 As DAO.Database, db2 As DAO.Database
    Dim r As DAO.Recordset, s As String

    DBEngine.SystemDB = "C:\Temp\s11.mdw"
    Set wrk1 = DBEngine.CreateWorkspace("", "a1", "")
    Set db1 = OpenDatabase("C:\Temp\Bd1.mdb", False, False)
    s = "SELECT * From t1"
    Set r = db1.OpenRecordset(s, dbOpenForwardOnly)
    Do Until r.EOF
        Debug.Print "-", r( 0 ), r( 1 )
        r.MoveNext
    Loop
    r.Close

    PDBEngine.SystemDB = "C:\Temp\s22.mdw"
    Set wrk2 = PDBEngine.CreateWorkspace("", "a2", "")

    Set db1 = OpenDatabase("C:\Temp\Bd2.mdb", False, False)
    s = "SELECT * From t1"
    Set r = db1.OpenRecordset(s, dbOpenForwardOnly)
    Do Until r.EOF
        Debug.Print "=", r( 0 ), r( 1 )
        r.MoveNext
    Loop
    r.Close
End Sub