Error con Recordset en tiempo de ejecucion VB6

[patob]

Probe lo que me dijiste lokoman, pero sigue el mismo error. La consulta quedo asi

SELECT EosCodEmp,EosFecCot,EosCodRub,sum(Case [when] EosCodDC = 'C' [THEN] EosImpMN *-1 [ELSE] EosImpMN [END]) FROM Linea_Factura Where Eoscodemp = 'IS' group by EosCodEmp,EosFecCot,EosCodRub"

Lo curioso es que es en acces 2007 que me da error, la probe en SQL y funciona bien