Visual Basic - AYUDA URGENTE findfirst

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

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

Hola Prueba asi:

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

Si los problemas persisten, te recomiendo que hagas un select y te evitas problemas, ademas asi como lo estas haciendo no se para que servirà

Suerte