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.