Visual Basic - buscar fecha

Hola... estoy haciendo una agenda de citas... y necesito hacer una busqueda de fechas... pero no me funciona bien... Private Sub CmdNuevaCita_Click()
Dim datom As Date
Dim buscam As String
datom = InputBox("Indique la fecha del día que desee la cita (dd/mm/yy)", "Fecha de cita")
buscam = "fecha=#" & datom & "#"
Data1.Recordset.FindFirst buscam
If Data1.Recordset.NoMatch Then
MsgBox ("La Fecha " & datom & " NO EXISTE")
Data1.Recordset.AddNew
TxtFecha = datom

gracias...

Estas poniendo la fecha de busqueda en una base de datos con formato dd/mm/yy. Creo que si utlizas el formato americano mm/dd/yy te soluciona el problema.

especifica un poco que es lo que no te funciona, pero de todas formas verifica que la fecha este en el formato que estas realizando la busqueda, si no es asi, debes antes de hacer buscam a toda la cadena de busqueda, debes hacer datom= FORMAT (datom,"mm/dd/yy") para llevar al formato de mes dia año!
espero te sirva, hasta luego......