Visual Basic para Aplicaciones - Error en el metodo open del objeto recordset

Private Sub CommandButton1_Click()

  'dimensiones

Dim datConnection As ADODB.Connection

Dim recSet As ADODB.Recordset

Dim strDB, strSQL As String

Dim lngTablas As Long

Dim i As Long

'ruta al archivo Access

'strDB = "C:\Fabricacion.mdb"

'crear la conexión

Set datConnection = New ADODB.Connection

Set recSet = New ADODB.Recordset

datConnection.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & _

"Data Source =" & strDB & ";"

'consulta SQL

strSQL = "SELECT e.art, e.compo, e.fase, e.ruta, v.vpa, v.vpp, e.Est_Frecuencia, e.UD, Ma.ID, M.descrip FROM e FULL OUTER JOIN v ON e.compo= v.art AND e.fase = v.fase AND e.ruta = v.ruta FULL OUTER JOIN Ma ON v.TipoMod = Ma.TipMod AND v.ruta= Ma.ruta AND v.fase= Ma.fase FULL OUTER JOIN M ON Ma.ID = M.ID WHERE e.art like '_1CO135180' and e.natur= 'OP'" _

& "Union" _

& "SELECT e.art, e.compo, e.fase, e.ruta, v.vpa, v.vpp, e.FR, e.UD, Ma.ID, M.descrip FROM e FULL OUTER JOIN v ON e.compo= v.art AND e.fase = v.fase AND e.ruta = v.ruta FULL OUTER JOIN Ma ON v.TipoMod = Ma.TipMod AND v.ruta= Ma.ruta AND v.fase= Ma.fase FULL OUTER JOIN M ON Ma.ID = M.ID WHERE e.art like '_1CO' and e.natur= 'OP'

recSet.Open strSQL, datConnection

'copiar datos

Range("d24").CopyFromRecordset recSet

  recSet.Close

  Set recSet = Nothing

End Sub