Visual Basic - busqueda

Necesito ingresar una fecha y verificar si esta existe, estoy usando la siguiente instrucción pero no la busca o la busca y no encuentra las fechas existentes. Podrían decirme que esta mal o como hacerlo?

Dim fecha As Date
‘Ingreso la fecha a buscar
fecha = Text1.Text
‘busco en el campo vencimiento
Datsecondaryrs.Recordset.FindFirst "vencimiento=" & fecha
‘evaluo si lo encontro
If Datsecondaryrs.Recordset.NoMatch Then

Prueba a pasar una variable tipo string a FindFirst:

Dim VarStr As String
VarStr = "vencimiento=" & Format(Text1.Text, "dd-MMM-yyyy")
Datsecondaryrs.Recordset.FindFirst VarStr

En el Format debes poner el mismo formato que tienes en la BD

Suerte
Josetxu

Prueba a hacerlo con un select, por ejemplo

rs.openrecordset("SELECT Vencimiento FROM TuTABLA WHERE Vencimiento=#" & Text1.text & "#")
If rs.eof then
LA FECHA NO EXISTE
else
LA FECHA SI EXISTE.
End if

Espero haberte ayudado.

Saludos