Buscar registros de tablas de base de datos

[matirojas]

amigo , mira encontre un codigo pero cuando escribo el nombre de la busqueda , se cierra la ventana de busqueda y no pasa nada :S , lo que quiero es que cuando termine de buscar , aparesca en un datagrid.

aca esta todo el codigo:

Código vb:

Private Sub fg_GotFocus()
 
End Sub
 
 
Private Sub Buscar_Click()
Dim buscado As String
Dim criterio As String
buscado = InputBox("Que nombre desea buscar?", "Buscar nombre...")
criterio = "Nombre like'*" & buscado & "*'"
Data1.Recordset.FindFirst (criterio)
If Data1.Recordset.NoMatch Then
cadena = "El registro " & buscado & " no existe"
MsgBox cadena, 64, "Resultado de la busqueda"
Data1.Recordset.MoveLast
Set DataGrid1.DataSource = res
End If
 
 
End Sub
 
Private Sub DataGrid1_Click()
 
Set DataGrid1.DataSource = res
 
End Sub
 

espero que me puedan ayudar amigos


saludos