Visual Basic - SQL- RESERVA DE ESPACIOS

Tengo tres bases de datos en access, y lo que necesito es abrir los 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(0).OpenDatabase(cBase3, False, False)

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

Mira ya prove tu código y no me manda ningún error, lo unico que le veo es
1) Declaras 2 objetos como base de datos y a la hora de utilizarlos solamente utilizas uno lo que hace que destruyas el contenido de la anterior
Especifica que error te aparece y tal vez podramos ayudarte con mayor precisión. El código funciona salvo la observación.

Option Explicit

Dim datadb1 As Database
Dim datadb2 As Database

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

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

Lo que trato de realizarr es abrir dos BASES DE DATOS al mismo tiempo, para lo cual estas bases tienen tablas relacionas. y el ERROR QUE indicas que en el segundo Workspace(1) indica que no exite objeto.

prueba colocar WORKSPACE(0) Y WORKSPACE(1) con dos bases distintas.

Lo que trato de realizarr es abrir dos BASES DE DATOS al mismo tiempo, para lo cual estas bases tienen tablas relacionas. y el ERROR QUE indicas que en el segundo Workspace(1) indica que no exite objeto.

prueba colocar WORKSPACE(0) Y WORKSPACE(1) con dos bases distintas.