Visual Basic - CONSULTAS CON HORA DESDE VBASIC6 PARA SQL SERVER

HOL AMMIGOS:

COMO HAGO UNA CONSULTA PARA MANEJAR HORAS DESDE CODIGO ADO EN VB6 HACIA UNA BASE DE SQL SERVER 2000

PRIMERO CAPTURO LOS VALORES PARAMETROS DE UNA TABLA:

eem = RsOnOffReloj.Fields("ENCENDIDO")
aem = RsOnOffReloj.Fields("APAGADO")

LOS CAMPOS ENCENDIDO Y APAGADO SON DE TIPO "DATETIME"

LUEGO APLICO LA CONSULTA EN EL RECORDSET

Set RsRelojTempFaltas = New ADODB.Recordset
With RsRelojTempFaltas
.ActiveConnection = Cn
.CursorLocation = adUseClient
.CursorType = adOpenStatic
.LockType = adLockOptimistic
.Source = "select FOTOCHECK, FECHA, TIPO, HORA from
RELOJ_TEMP_FALTAS where (FECHA='" & fec1 & "') and (tipo='B')
And ((HORA>='" & eem & "') and (HORA<='" & aem & "')) order by
FOTOCHECK"
.Open
End With

PERO LA CONSULTA ME VOTA CERO REGISTROS, REVISO LA BASE Y SI HAY REGISTROS.

QUE ESTÁ MAL?

MUCHAS GRACIAS