Excel - Problemas al ejecutar y una macro.

Urgente.

Hola al ejecucion de esta macro me aparece error de sintaxis e ejecutado la misma consulta en SQL y no hay problema en su ejecución. este macro me permite importar datos mediante una Query

Sub ItemsSinInforTecnica11()
'
' CONEXION Macro
'

'
Dim param1
Dim param2

Sheets("Procesos").Select
param1 = Range("D6").Cells.Text
param2 = Range("D7").Cells.Text
mesaño = Val(Left(fecha, 7))

Sheets("ItemsSinInforTecnica").Select
ActiveSheet.Unprotect
Columns("A:IV").Select
Selection.ClearContents

With ActiveSheet.QueryTables.Add(Connection:="ODBC;DSN=ROYAL4;", _
Destination:=Sheets("ItemsSinInforTecnica").Range("A2"))

.CommandText = "SELECT count(*) as cantidad from LECSSIDB.suacspol pol JOIN LECSSIDB.suacsITE ITE ON ITE.nnumdocu=pol.nnumdocu AND ITE.nnumcert=POL.nnumcert AND ITE.nnumendo=POL.nnumendo LEFT JOIN lecssidb.suacsT00 T00 ON T00.nnumdocu=ite.nnumdocu AND T00.nnumcert=ite.nnumcert" & _
"AND T00.nnumendo=ite.nnumendo AND T00.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT01 T01 ON T01.nnumdocu=ite.nnumdocu AND T01.nnumcert=ite.nnumcert AND T01.nnumendo=ite.nnumendo AND T01.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT02 T02 ON T02.nnumdocu=ite.nnumdocu AND T02.nnumcert=ite.nnumcert" & _
"AND T02.nnumendo=ite.nnumendo AND T02.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT03 T03 ON T03.nnumdocu=ite.nnumdocu AND T03.nnumcert=ite.nnumcert AND T03.nnumendo=ite.nnumendo AND T03.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT04 T04 ON T04.nnumdocu=ite.nnumdocu AND T04.nnumcert=ite.nnumcert AND T04.nnumendo=ite.nnumendo" & _
"AND T04.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT05 T05 ON T05.nnumdocu=ite.nnumdocu and T05.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT06 T06 ON T06.nnumdocu=ite.nnumdocu" & _
"AND T06.nnumcert=ite.nnumcert AND T06.nnumendo=ite.nnumendo AND T06.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT07 T07 ON T07.nnumdocu=ite.nnumdocu AND T07.nnumcert=ite.nnumcert" & _
"AND T07.nnumendo=ite.nnumendo AND T07.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT08 T08 ON T08.nnumdocu=ite.nnumdocu AND T08.nnumcert=ite.nnumcert AND T08.nnumendo=ite.nnumendo" & _
"AND T08.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT09 T09 ON T09.nnumdocu=ite.nnumdocu AND T09.nnumcert=ite.nnumcert AND T09.nnumendo=ite.nnumendo AND T09.nnumitem=ite.nnumitem" & _
"LEFT JOIN lecssidb.suacsT10 T10 ON T10.nnumdocu=ite.nnumdocu AND T10.nnumcert=ite.nnumcert AND T10.nnumendo=ite.nnumendo AND T10.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT11 T11" & _
"ON T11.nnumdocu=ite.nnumdocu AND T11.nnumcert=ite.nnumcert AND T11.nnumendo=ite.nnumendo AND T11.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT12 T12 ON T12.nnumdocu=ite.nnumdocu" & _
"AND T12.nnumcert=ite.nnumcert AND T12.nnumendo=ite.nnumendo AND T12.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT13 T13 ON T13.nnumdocu=ite.nnumdocu AND T13.nnumcert=ite.nnumcert" & _
"AND T13.nnumendo=ite.nnumendo AND T13.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT14 T14 ON T14.nnumdocu=ite.nnumdocu AND T14.nnumcert=ite.nnumcert AND T14.nnumendo=ite.nnumendo" & _
"AND T14.nnumitem=ite.nnumitem LEFT JOIN lecssidb.suacsT15 T15 ON T15.nnumdocu=ite.nnumdocu AND T15.nnumcert=ite.nnumcert AND T15.nnumendo=ite.nnumendo AND T15.nnumitem=ite.nnumitem" & _
"LEFT JOIN lecssidb.suacsT16 T16 ON T16.nnumdocu=ite.nnumdocu AND T16.nnumcert=ite.nnumcert AND T16.nnumendo=ite.nnumendo AND T16.nnumitem=ite.nnumitem Where Pol.NNUMDOCU > 0 " & _
"AND pol.NPECOSUS=200704 AND t00.NNUMDOCU IS NULL AND t01.NNUMDOCU IS NULL AND t02.NNUMDOCU IS NULL AND t03.NNUMDOCU IS NULL AND t04.NNUMDOCU IS NULL" & _
"AND t05.NNUMDOCU IS NULL AND t06.NNUMDOCU IS NULL AND t07.NNUMDOCU IS NULL AND t08.NNUMDOCU IS NULL AND t09.NNUMDOCU IS NULL AND t10.NNUMDOCU IS NULL AND" & _
"T11.NNUMDOCU IS NULL AND t12.NNUMDOCU IS NULL AND t13.NNUMDOCU IS NULL AND t14.NNUMDOCU IS NULL AND t15.NNUMDOCU IS NULL AND t16.NNUMDOCU IS NULL"


.Name = "Consulta desde ROYAL4"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
Call Volver
End Sub

Has verificado que en los enlaces "& _ haya un espacio antes de las comillas?

Saludos