Visual Basic - como hacer busquedas por nombre con codigo puro

hola me gustaria sabes como esq puedo hacer una busqda por nombre con codigo puro de ante manos grasias

Hola....

dim base as database
dim tabla as recordset
dim largo,encontrados as integer

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

largo=len(text1) 'cuadro de texto donde colocas parte del nombre
tabla.movefirst
do until tabla.eof()
if left(tabla!nombre,largo)=text1 then
list1.additem tabla!nombre
encontrados=encontrados + 1
endif
tabla.movenext
loop

if encontrados>0 then
label1.caption="Se han encontrado" & encontrados & "registros en la Tabla"
else
label1.caption="No hubieron coincidencias"
endif

bueno el codigo no esta probado porque lo digite ahora...aso que no tube tiempo de probar, pero no deberia caer..jejejejejejje

Chauuuuu....