Error con Recordset en tiempo de ejecucion VB6

[patob]

Buenas, me esta saliendo un error muy raro cuando intento hacer una consulta SQL en el recordset.


rs1.Open "SELECT EosCodEmp,EosFecCot,EosCodRub,EosDscLin,SUM([Case] WHEN EosCodDC = 'C' THEN EosImpMN * -1 ELSE EosImpMN END) FROM Linea_Factura", cnn, adOpenDynamic, adLockOptimistic

Es una consulta simple, no tiene mayor dificultad, cuando la ejecuto me sale el siguiente error:

"Error en el metodo "open" del ebjeto '_Recordset'"

Esta es la conexion que hago a la base de datos acces

Sub abrirConexion()
Set cnn = New ADODB.Connection
cnn.CursorLocation = adUseClient
cnn.ConnectionString = App.Path + "\BaseDeDatos.mdb"
cnn.Provider = "microsoft.jet.oledb.4.0"
cnn.Open
End Sub

Espero puedan ayudarme Garacias!!