Visual Basic - Ayuda con ADO

Hola solo para si me pueden ayudar en este problemilla

Como puedo hacer una busqueda por medio de ADO YA TENGO COMO ACTUALIZAR ELIMINAR Y GUARDAR,.......

SALUDOS Y GRACIAS

No se si te sirva...
dim dbconex As New adodb.Connection
dim wsql as string
wsql="Select * From Tabla"...
set registro=dbconex.execute(wsql)
While not dbrecor.eof
if buscar=trim(dbrecor!algo)
msgbox "se encontro el refistro"
end if
dbrecor.movenext
wend

Xausiño, Grande Feña