Visual Basic - Necesito rutina de busqueda para ADO

Necesito que me envien una rutina de busqueda de datos, ya sea partiendo de un combo box, como de cajas de texto. El programa esta conectado a una base de datos de Access. Si es posible detallenme bien los nombres de la tablas y el procedimiento, poque no entiendo mucho, le estot agarrando la mano.

Private sub buscar_click ()
dim buscado as string, criterio as string

buscado = inputbox ("nombre a buscar?")
if buscado = "" then exit sub

criterio = "nombre like ' * " &buscado & " * ' "

adodc1.recordset.movenext
if not adodc1.recordset.eof then
adodc1.recordset.find criterio

end if

if adodc1.recordset.eof then
adodc1.recordset.movefirst
adodc1.recordset.find criterio

if adodc1.recordset.eof then
adodc1.recordset.movelast
msgbox ("no se encontro ni madres")
end if
end if
end sub

creo que esto ayudara