Buscar registros VB

[semas]

Hola, no se si esto te valdra, tp me especificas mucho sobre que lo vas a hacer y que usas, pero bueno ahi va

Private Sub cmdBuscar_Click()
Dim cadena As String, resultado As String, busca As Integer
cadena = Trim(InputBox("Nombre del Socio a buscar", "Buscar"))
If cadena <> "" Then
resultado = "Nombre like " & "'" & cadena & "*'"
With rstSocios
.MoveLast
.FindFirst resultado
If .NoMatch Then
MsgBox "No se encontraron registros con " & cadena & ".", vbCritical + vbCritical, "Buscar"
Else
busca = vbYes
End If
Do While busca = vbYes
busca = MsgBox("¿Buscar siguiente?", vbInformation + vbYesNo, "Buscar")
If busca = vbYes Then
.FindNext resultado
End If
If .NoMatch Then
MsgBox "No se encontraron registros con " & cadena & ".", vbCritical + vbCritical, "Buscar"
Exit Do
End If
Loop
End With
End If
End Sub

Los recordset los declaras en un modulo, y luego los llamas en el form load y form activate.