Visual Basic - ¡URGENTE!

POR FAVOR QUISIERA QUE ME AYUDARAN A, COMO HACERLE QUE POR MEDIO DE UN CONTROL ME PUEDA BUSCAR LOS DATOS DE UN DBGRID
TENGO ESTO PERO NO ME SALE

Private Sub mnubuscar_Click()
Dim CRITERIO As String
CRITERIO = InputBox("criterio de busqueda.Por ejemplo:", _
"buscar", " [NOMBRE] Like '*QUETZIN OLVERA MARQUEZ*'")
If CRITERIO <> "" Then
Data1.Recordset.FindFirst CRITERIO
End If
Text1.SetFocus
End Sub

QUE MAS PODRIA USAR?

Hola, q es exactamente lo q no te sale ?, ya q el codigo q has puesto deberia de funcionar sin problemas ....