Error 3061. Too few parameters. Expected 2

[Sylvestre]

Hola foreros!

Me encuentro con el siguiente problema:
Al hacer la consulta de abajo, me devuelve el Error 3061, Too few parameters, Expected 2.

CadenaSql = "SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON" & _
"(Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.contralan = Chistclin.contrala) AND (Cronda.ds = Chistclin.ds) Where (((Chistclin.patologi) = 'Catarata Simple')And ((Cronda.apon) = 'Inapropiado')) Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON" & _
"(Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.contralan = Chistclin.contrala) AND (Cronda.ds = Chistclin.ds) Where (((Chistclin.patologi) = 'Catarata Simple')) Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala)Where (((Chistclin.patologi) = 'Retinopatia Diabetica'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala) AND (Cronda.ds = Chistclin.ds) Where (((Chistclin.patologi) = 'Retinopatia Diabetica') And ((Cronda.apon) = 'Inapropiado'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala) AND (Cronda.ds = Chistclin.ds) Where (((Chistclin.patologi) = 'Retinopatia Diabetica'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.ds = Chistclin.ds) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala) Where (((Chistclin.patologi) = 'Otra patologia asociada'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.ds = Chistclin.ds) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala) Where (((Chistclin.patologi) = 'Otra patologia asociada') And ((Cronda.apon) = 'Inapropiado'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.ds = Chistclin.ds) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.agudeposn = Chistclin.agudepost) AND (Cronda.contralan = Chistclin.contrala) Where (((Chistclin.patologi) = 'Otra patologia asociada'))Union " & _
"SELECT Chistclin.clave, Chistclin.nombre, Chistclin.apell1, Chistclin.apell2, Chistclin.edad, Chistclin.patologi, Chistclin.lateralid, Chistclin.contrala, Chistclin.comtec, Chistclin.funcion, Chistclin.agudepre, Chistclin.agudepost, Chistclin.celulas, Cronda.mediana, Cronda.acuerdon, Cronda.apon FROM Cronda INNER JOIN Chistclin ON (Cronda.patolon = Chistclin.patologi) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.ds = Chistclin.ds) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.celulasn = Chistclin.celulas) AND (Cronda.contralan = Chistclin.contrala) Where (((Chistclin.patologi)='Distrofia corneal'))"
Debug.Print CadenaSql
Set Conjunto_de_resultados = Base_de_datos.OpenRecordset(CadenaSql, dbOpenSnapshot)

El error e produce cuando añado la sentencia Cronda.ds = Chistclin.ds....
Me podríais ayudar? Gracias dee antemano.
Saludos