Visual Basic - ayuda con findfirst urgente

Amigos del foro tengo un problema que quiero ver si me dan una mano

El tema es el siguiente
Deseo hacer una búsqueda que implica que el registro que debo encontrar debe coincidir con la fecha del día y con un número de empleado que debe ser igual al que se selecciona desde una grilla
El problema es que al hacer el findfirst de la fecha and el número me da un error de no coinciden los tipos

Aquí les paso el código para ver si me pueden ayudar
Gracias

EN ESTA LINEA ES DONDE TENGO EL PROBLEMA

AdmHorarios.Recordset.FindFirst "[Fecha] Like '" & Date & "*'" And AdmHorarios.Recordset(0) = Val(Grilla.Text)
If AdmHorarios.Recordset.NoMatch Then

Fijate de enviar la fecha entre # (numerales) o entre comillas simples.

Amigos cuando mando la fecha sola funciona bien el tema es cuando le agrego la busqueda por numero
yo pienso que el tema viene por como estoy encarando el and
me podrian pasar un ejemplo a ver si lo puedo solucionar

GRACIAS a TODOS/AS

Justo lo que dice Cecilia y, además, aquí llevas un ejemplo para el dia de hoy y entre 2 fechas insertadas en 2 Cuadro de Texto (TextBox, para los americanos e ingleses):

If Option1(0).Value = True Then
SQL = "SELECT * FROM CAJA WHERE Fecha = Date();"
'Esto es para el día de hoy
Else
If txtDesde = "" Or txtHasta = "" Then
MsgBox "Debe rellenar los campos de selección entre fechas"
txtDesde.SetFocus
GoTo fuera
End If
If IsDate(txtDesde) And IsDate(txtHasta) Then
Dim criterio1, criterio2
criterio1 = Format(txtDesde, "Short Date")
criterio2 = Format(txtHasta, "Short Date")
If CInt(Left(criterio1, 2)) < 13 Or CInt(Left(criterio2, 2)) < 13 Then
criterio1 = formateaFecha(criterio1)
criterio2 = formateaFecha(criterio2)
End If
' Las líneas anteriores llevan a una función que formatea adecuadamente
SQL = "SELECT * FROM CAJA WHERE Fecha BETWEEN #" & criterio1 & "# AND #" & criterio2 & "# ORDER BY Fecha;"

Etc., etc...

En la validación de Fecha con FindFirst siempre he tenido problema; y cambié la forma de hacer búsqueda validando Fechas.- He llegado a la conclusión que el findfirst trabaja bien con los días del mes a partir del día 13, del 1 al 12 invierte.- Ejemplo:

Tengo una tabla que contiene la tasa del cambio con respecto al dolar... en mi ventana para hacer un Recibo de Caja hago que confirmar la elaboración del Recibo, vaya primeramente a la tabla donde está la tasa de cambio, busque la coincidencia entre las dos fechas (la del día y la que ya contiene la tabla); ésto el findfirst lo hace correctamente solo a partir del día 13.-


Este código debería funcionar para cualquier día del mes, pero solo funciona con los días a partir del 13.-

Quisiera me argumentaran si estoy en lo cierto o realmente puedo hacer algo; he probado por algunas otras instancia y no logro hacer que Findfirst me funcione en este particular.... en cualquier otra búsqueda el FindFirst funciona muy bien, pero aquí me desanimó por completo...-

Cambié la búsqueda con un Do While, pero considero que en una búsqueda grande se me haría muy lento.- Pero en este particular se puede delimitar que la búsqueda se haga solamente en el mes que pertenece la fecha actual del sistema en DTPicker.-