Visual Basic - Ayuda con búsqueda en bd

Hola a todos/as.-

Tengo un data, dos text, un command y un dbgrid.

Tengo conectada la bd de la siguiente forma:

Data1.DatabaseName = App.Path & "\bd1.mdb"
Data1.RecordSource = "Select * From Tabla1 order by Campo1"

Text1.DataField = "campo1"

Ahora cuando cuando quiero buscar algo lo hago de la siguiente forma

Private Sub Command1_Click()
Dim nreg As Long
nreg = Val(Text2.Text)
Data1.Recordset.FindFirst "Campo1 like '" & Text2.Text & "'"
If Data1.Recordset.NoMatch Then
MsgBox ("No se ha encontrado ningún registro que coincida con el criterio de búsqueda")
Exit Sub
End If
End Sub

Y me muestra el primer registro que coincide, pero lo que necesito es que me llene un dbgrid con todos los registros que coincidan con el criterio de búsqueda.

Pregunta ¿Se puede hacer?, ¿Como sería el código?

Gracias de antemano.-

Hasta donde se, con el metodo FindFirst no podras realizar lo q deseas, ya q solo encontrara un registo, puedes realizarlo haciendo un bucle y utilizando el metodo Findnext, pero te recomiendo q utilices una sentencia SQL, es mucho mas rapida y funcional...con menos codigo...

Te muestro un ejemplo:
Dim SentenciaSQL As String
SentenciaSQL = "Select TuCampo From TuTabla Where TuCampo Like "
SentenciaSQL = SetenciaSQL & "'" & Text2.Text & "'"

Data1.RecordSource = SentenciaSQL
Data1.Refresh

La sentencia sql es guardada en una variable del mismo nombre y luego solo igualas el valor a la propiedad RecordSource de tu BD, espero q te sirva de algo este pequeño ejemplo.

Saludos!!!

En plan coloquial...
1.- FindFirst
2.- Haces un bucle y:
* principio bucle
poner en el Grid
FindNext
y así hasta que llegues al final y sales del bucle
* volver principio bucle

recordset.{FindFirst | FindLast | FindNext | FindPrevious} criterios

Son, en este orden:
Primero, último, próximo y anterior.