Error 3319 en tiempo de ejecución. Syntax error in union query.

[Sylvestre]

Hola foreros.

Tengo esta consulta de SQL y me sale el error "Error 3319 en tiempo de ejecución. Syntax error in union query.".Me estoy comiendo la cabeza mogollon y no encuentro la solución... ¿me podriais echar un cable?

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, Cronda.dsn, Cronda.scoreprior" & _
" 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) Where (((Chistclin.patologi) = 'Catarata Simple') AND ((Cronda.apon) = 'Inapropiado') AND ((Chistclin.contrala)='" & contrala_combo.Text & "') AND ((Chistclin.comtec)='" & comtec_combo.Text & "') AND ((Chistclin.agudepost)='" & agudepost_combo.Text & "') AND ((Chistclin.funcion)='" & funcion_combo.Text & "') AND ((Chistclin.agudepre)='" & agudepre_combo.Text & "'))" & _
" 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, Cronda.dsn, Cronda.scoreprior" & _
" FROM Cronda INNER JOIN Chistclin ON (Cronda.dsn = Chistclin.ds) AND (Cronda.contralan = Chistclin.contrala) AND (Cronda.agudepren = Chistclin.agudepre) AND (Cronda.funcionn = Chistclin.funcion) AND (Cronda.comtecn = Chistclin.comtec) AND (Cronda.lateralin = Chistclin.lateralid) AND (Cronda.patolon = Chistclin.patologi)" & _
" Where (((Chistclin.patologi) = 'Catarata Simple')) AND ((Chistclin.contrala)='" & contrala_combo.Text & "') AND ((Chistclin.comtec)='" & comtec_combo.Text & "') AND ((Chistclin.agudepost)='" & agudepost_combo.Text & "') AND ((Chistclin.funcion)='" & funcion_combo.Text & "') AND ((Chistclin.agudepre)='" & agudepre_combo.Text & "'))"


Saludos