Visual Basic - Sistemas

Dim criterio As String
Dim mensaje As String

mensaje = "Escriba el Socio que desea buscar"
criterio = InputBox(mensaje, "consultas")
If criterio <> "" Then
datPrimaryRS.Recordset.FindFirst " socio like '" & criterio & "'"
End If
If datPrimaryRS.Recordset.NoMatch Then MsgBox "Codigo de Socio no existe. ", vbOKOnly + vbInformation, "consulta"

Esta es la unica consulta que se realizar, yo necesito una busqueda que no me traiga el primero como en este caso, que me traiga todos los que sean parecidos

mensaje = "Escriba el Socio que desea buscar"
criterio = InputBox(mensaje, "consultas")
If criterio <> "" Then
datPrimaryRS.Recordset.FindFirst " socio like '" & criterio & "%'"
End If
If datPrimaryRS.Recordset.NoMatch Then MsgBox "Codigo de Socio no existe. ", vbOKOnly + vbInformation, "consulta"

Con el % lo que haces es que te muestre lo que sea igual o que empiece por criterio, tb lo podrias poner antes para que te busque lo que sea parecido por el final.

Suerte

Muchas gracias