ayuda con la opcion buscar

[nicko_seba]

hola necesito ayuda
toy creando un programa q es como pa manejar una empresa unipersonal.
en la cual solo se lleva el registro de los trabajos realizados en q fecha, a quien y cuanto se cobro, y todo eso luego se guarda en una base de datos.
cree un menu y no me funciona la opcion buscar, lo que quiero es buscar el nombre del cliente, tengo el MSFlexGrid1 q es dnd t muestra todos los clientes ingresados en la base y el Data1 q es la barra para ir cambiando de cliente.
pero quiero configurar la opcion de buscar con el nombre q es un tipo text de 255.
lo q yo escribi en el codigo fuente es esto:

Private Sub buscar_Click()
Static m As String
m = Val(InputBox("Introduce el Nombre que Buscas"))
Data1.Recordset.FindDirst "Nombre=" & m
If Data1.Recordset.NoMatch Then
MsgBox "El Nombre: " & m & " No está en la Base de Datos", vbExclamation, "Búsquedas de Nombre"
End If
End Sub

No pregunten xq puse cada cosa xq como no sabia como hacerlo lo copie d un ejemplo d una base de datos pero d una escuela dnd se buscaba cada niño por la matricula q es un long.

Agradesco cualquier ayuda