カレントデータベースと同時に別のデータベースを処理する必要がある場合は、
WorkspaceオブジェクトのOpenDatabaseメソッドを使います。

　OpenDatabaseメソッドは、実際にはデータベースを開かずに、データベースを参照
するオブジェクト変数だけを返します。

　サンプルでは、カレントデータベースとdb2.mdbという名前のデータベースを参照
する変数が返され、それぞれのDAOのバージョンをメッセージボックスに表示して
います。

● サンプル　●

Sub Othersdb()
    Dim mydb As Database
    Dim Otdb As Database

    Set mydb = CurrentDb
    Set Otdb = DBEngine.Workspaces(0).OpenDatabase("C:\AccessVBA\db2.mdb")

    MsgBox "カレントデータベースのDAOのバージョンは" & _
            mydb.Version & "です"

    MsgBox "「db2.mdb」データベースのDAOのバージョンは" & _
            Otdb.Version & "です"

    mydb.Close
    Otdb.Close

End Sub