No coinciden los tipos de datos en la expresion de criterios sql en vb6

[Ghericoh]

Saludos. Tengo un problema con una consulta.
La variable USERID es de tipo Entero largo en mi base de datos .mdb

Function CargaEntSal(cod As Long)
Dim strsql As String
Dim k As Integer

Set ListaES = New ADODB.Recordset
strsql = "select CHECKTIME from CHECKINOUT where USERID = '" & cod & "'"
ListaES.Open strsql, cn
If ListaES.EOF Then
MsgBox "El usuario reuqerido no tiene registros de entrada/salida", vbInformation, "Datos no encontrados"
Else
While Not ListaES.EOF
k = ListaES.Fields(0)
ListaES.MoveNext
Wend
End If
End Function

NO veo donde mas puede estar la falla, Gracias de antemano.

[Libras]

en que le estas poniendo comillas simples al inicio de la variable y eso es solo para los valores string estas haciendo esto

select * from tabla where userid='1' y te marca el error porque userid es de tipo entero y lo estas comparado con una cadena si necesitas usar el valor en cadena puedes hacer lo sig

select * from tabla where userid=convert(int,'1')

Saludos!