Visual Basic - SQL .- WORKSPACE - AYUDA PLS

Tengo tres bases de datos en access, y lo que necesito es abrir dos de ellas al mismo tiempo para extraer las tablas, tengo la siguientes sentencia y pero me da error,.... ALGUIEN SABE COMO ABRIR LAS BASES O CORREGIRME LA SENTENCIA... GRACIAS...

Option Explicit

Dim datadb1 As Database
Dim datadb2 As Database

Private Sub Form_Load()
Set datadb1 = DBEngine.Workspaces(0).OpenDatabase(cBase1, False, False)
Set datadb1 = DBEngine.Workspaces(1).OpenDatabase(cBase3, False, False)

....
.....
......
End Sub

dim database as data base,work as workspaces,rec as recordset
set work=dbengine.workspaces(0)
set db=work.opendatabase("C :....mdb."false,false)
Necesitas ademas un SELECT.
XS=SELECT *(TODO) FROM TALBLA1.A and tabla2.b