Visual Basic - Ayuda...Reservar espacio con Worlspaces

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

Yo hago lo siguiente:
Dim strDataBase As String

Screen.MousePointer = vbHourglass
Call MessageStatusBar(MsgCnnACCESS, True)
'---------------------------------

Set cnBase1 = New ADODB.Connection
Set cnBase3 = New ADODB.Connection
Set cnBase2 = New ADODB.Connection

With cnBase1
.Provider = "Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Base1.mdb;" _
& "Mode=Read|Write; Persist Security Info=False"
.Open
End With

With cnBase2
.Provider = "Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Base2.mdb;" _
& "Mode=Read|Write; Persist Security Info=False"
.Open
End With

With cnBase3
.Provider = "Microsoft.Jet.OLEDB.4.0;" _
& "Data Source=" & App.Path & "\Base3.mdb;" _
& "Mode=Read|Write; Persist Security Info=False"
.Open
End With

Saludos desde Lima