Problema con sql en visual basic

[Brujitaes]

Hola tengo otro error raro porque lo parentesis estan bien. Si alguien me pudiera ayudar se lo agradeceria, gracias.

Se ha producido un error 3075 en el tiempo de ejecucion: Sobra un parantesis de cierre ) en la expresion de la consulta ' (([Proveedores una Cuenta].[Clave banco]) <> '00000000')
And ((PAGOS.Transfer) = [Forms]![cuadro fechas transfer]![TransfN]) And ((PAGOS.Vencimiento) =# fecvencinto #)
And ((PAGOS.Correcta) = 'C') And ((PAGOS.Pagado) = No) And ((PAGOS.[Forma de pago]) = 'TR') And ((PAGOS.Estado) <> 'A') And ((PAGOS.Banco) ="[Forms]![cuadro fechas transfer]![Banco]')
And (([Proveedores una Cuenta].Bloqueo) <> 'BLOQUEO') And ((PAGOS.Cesión) = 0) '





1 STRSQL = "SELECT DISTINCTROW Pagos.EnEuros, [Proveedores una Cuenta].nombre as Proveedor, [Proveedores una Cuenta].CIF, [Proveedores una Cuenta].Calle, [Proveedores una Cuenta].Población AS Pobla, "
2 STRSQL = STRSQL & "Pagos.[Su factura], [Proveedores una Cuenta].[Clave banco] AS ClaBan, [Proveedores una Cuenta].[Nº de cuenta] AS CTA, Pagos.Total, [Bancos propios].Bank, "
3 STRSQL = STRSQL & "[Bancos propios].Coco, IIf(IsNull([DC]) Or [DC]='',' ',[DC]) AS DICO FROM ([Bancos oficinas para relaciones] INNER JOIN [Proveedores una Cuenta] ON "
4 STRSQL = STRSQL & "[Bancos oficinas para relaciones].[Clave para relaciones] = [Proveedores una Cuenta].[Clave banco]) INNER JOIN ([Bancos propios] INNER JOIN Pagos ON "
5 STRSQL = STRSQL & "[Bancos propios].[Clave cuenta] = Pagos.Banco) ON ([Proveedores una Cuenta].CLA_ENT = Pagos.CLA_ENT) AND ([Proveedores una Cuenta].COD_ENT = Pagos.COD_ENT) WHERE (([Proveedores una Cuenta].[Clave banco]) <> '00000000') "
6 STRSQL = STRSQL & "And ((PAGOS.Transfer) =" & [Forms]![cuadro fechas transfer]![TransfN] & ") And ((PAGOS.Vencimiento) =#" & fecvencinto & "#) "
7 STRSQL = STRSQL & "And ((PAGOS.Correcta) = 'C') And ((PAGOS.Pagado) = No) And ((PAGOS.[Forma de pago]) = 'TR') And ((PAGOS.Estado) <> 'A') And ((PAGOS.Banco) ='" & [Forms]![cuadro fechas transfer]![Banco] & "') "
8 STRSQL = STRSQL & "And (([Proveedores una Cuenta].Bloqueo) <> 'BLOQUEO') And ((PAGOS.Cesión) = 0) ORDER BY [Proveedores una Cuenta].nombre;"

9 Set Origen = PAGOS.OpenRecordset(STRSQL)
(Aqui me sale el error)


y la tabla tambien la he cambiado este trozo por este pero me sale el mismo error:

1 miSelect = "SELECT DISTINCTROW Pagos.EnEuros, [Proveedores una Cuenta].nombre as Proveedor, [Proveedores una Cuenta].CIF, [Proveedores una Cuenta].Calle, [Proveedores una Cuenta].Población AS Pobla, Pagos.[Su factura], [Proveedores una Cuenta].[Clave banco] AS ClaBan, [Proveedores una Cuenta].[Nº de cuenta] AS CTA, Pagos.Total, [Bancos propios].Bank, [Bancos propios].Coco, IIf(IsNull([DC]) Or [DC]='',' ',[DC]) AS DICO "

2 miFrom = "FROM ([Bancos oficinas para relaciones] INNER JOIN [Proveedores una Cuenta] ON [Bancos oficinas para relaciones].[Clave para relaciones] = [Proveedores una Cuenta].[Clave banco]) INNER JOIN ([Bancos propios] INNER JOIN Pagos ON [Bancos propios].[Clave cuenta] = Pagos.Banco) ON ([Proveedores una Cuenta].CLA_ENT = Pagos.CLA_ENT) AND ([Proveedores una Cuenta].COD_ENT = Pagos.COD_ENT) "

3 miWhere = "WHERE (([Proveedores una Cuenta].[Clave banco]) <> '00000000') And ((PAGOS.Transfer) =" & [Forms]![cuadro fechas transfer]![TransfN] & ") And ((PAGOS.Vencimiento) =#" & fecvencinto & "#) And ((PAGOS.Correcta) = 'C') And ((PAGOS.Pagado) = No) And ((PAGOS.[Forma de pago]) = 'TR') And ((PAGOS.Estado) <> 'A') And ((PAGOS.Banco) ='" & [Forms]![cuadro fechas transfer]![Banco] & "') And (([Proveedores una Cuenta].Bloqueo) <> 'BLOQUEO') And ((PAGOS.Cesión) = 0) "

4 miOrder = "ORDER BY [Proveedores una Cuenta].nombre;"

5 miSQL = miSelect & miFrom & miWhere & miOrder

6 Set Origen = PAGOS.OpenRecordset(miSQL)
(En la ultima linea me sale el error el mismo error)



Gracias por ayudarme.