Visual Basic - Busqueda avanzada

Dim a As String
Dim b As String


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

Hola buenas tardes, Tengo problemas para realizar una busqueda avanzada
necesito otra que en un label1 me tire todos los registros encontrado
me lo pueden decir o armar algo parecido a este de arriba
Saludos

Hola....pudes probar con esto....

dim bd as Database
dim tabla as Recordset
dim cadena as string
dim largo,Encontrados as integer

set bd=dbengine.workspaces(0).opendatabase("ruta base de datos")
set tabla=bd.openrecordset("Nombre de tabla",dbopentable)

largo=len(text1)
cadena=text1

tabla.movefirst
do until tabla.eof()
if Left((tabla!nombre),largo)=cadena then
List1.additem tabla!nombre
encontrados=encontrados + 1
end if
tabla.movenext
loop

label1.caption="Hubieron" & Encontrados & " elementos en la base de datos"

puede que tenga algun error porque la hice ahoara no esta probado el codigo,
pero si tienes dudas escribeme a mi mail...

Ruben sos un capo
Gracias.

De nada socio para eso estamos los colegas...de todas formas si tienes consultas enviamelas a mi mail...

Chauuuu...