Preguntaban en las News:
Como hago por medio de codigo para abrir desde una base datos A abrir la base de datos B
y a la vez ejecutar una consulta de la base de datos B

Y Happy contesta:

Dim AccessApp As New Access.Application
 AccessApp.OpenCurrentDatabase ("c:\mibd.mdb")
 AccessApp.Visible = True
 AccessApp.DoCmd.OpenQuery "miconsulta"
 Set AccessApp = Nothing

Y el Bhuo tambien contesta:
El ejemplo de Juan es bueno. Pero en realidad abre otra instancia de Access,
aunque inmediatemente la cierre.
Si quieres otro metodo....
Por ejemplo, esto abriría otra base de datos y crearía una consulta:

 Function CreaNuevaConsulta(Name As String, Sql As String)
    Dim dbs As Database
    Dim qdfNuevo As QueryDef
    Set dbs = OpenDatabase("C:\Twpac\datos.Mdb")
    With dbs
        ' Crea una consulta permanente.
        Set qdfNuevo = .CreateQueryDef(Name, Sql)
        .Close
    End With

End Function

Este otro ejemplo, EJECUTARIA una consulta, utilizando mismo metodo
Function AbreBAseYEjecutaConsulta()
    Dim dbs As Database
   Set dbs = OpenDatabase("C:\Twpac\dsystem.Mdb")
    With dbs
        ' Ejecuta Consulta de lo que sea:
       .Execute "Select * from etc etc"
        .Close
    End With

End Function