Error con Recordset en tiempo de ejecucion VB6

[patob]

Pude solucionarlo. Es un error con en microsoft.jet.oledb.4.0 Hay que poner las palabras claves entr []

Ahora otro error.

En la misma consulta:

SELECT EosCodEmp,EosFecCot,EosCodRub,EosDscLin,SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END) FROM Linea_Factura

Me dice: Error de sintaxis (falta operador) en la exprecion de consulta 'SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END)'

Gracias