Visual Basic - SQL no me da la consulta

que tal buen dia estoy haciendo la consulta con un data de la siguiente manera
Data1.Recordset.FindFirst ("Numero= '" & TxtNumero.Text & "'")
Data1.Refresh
If Data1.Recordset.NoMatch Then
If MsgBox("Registro no Ubicado", vbOKOnly + vbInformation, "Registro Equivocado") = vbOK Then
TxtNumero.SetFocus
Exit Sub
End If
End If

Mas sin embargo en todos los casos no entra en el if... si el registro esta no entra y ni no esta tampoco entra :S.......... que es lo que esta equivocado.... porfavor alguien ayudeme....

En primer lugar me parece que la linea If Data1.Recordset.NoMatch Then debería ser If Data1.Recordset.NoMatch=True Then.
En segundo lugar no deberías refrescar si no ha encontrado lo que se busca.

If Data1.Recordset.NoMatch Then
......
.....
Else
Data1.Refresh

endif

También ayuda si dices que error te da.

no me daba error simplemente no asia nada !!
pero ya lo resolvi.... Gracias por Contestar :)