Visual Basic - Ayuda con Sub de busqueda

Para empezar les digo que estoy aprendiendo VB6

El problema en cuestion es el siguiente: he creado una aplicacion para manejar una base de datos (Acces) con ADO (sin Data Control) y me gustaria saber como hacer una busqueda, ya que solo se hacerlo con el Data Control.

De antemano Gracias por su Ayuda

Usa esto: (m_orecordset1 = objeto de almacenamiento temporal de registros)

m_orecordset1.movefirst

'Si buscar valores numericos:
m_orecordset1.find "campo_BD = " & variable_buscada_numerica

Si buscas valores alfanumericos:
m_orecordset1.find "campo_BD = '" & variable_buscada_alfa & "'"

Si buscas texto dentro de un campo:
m_orecordset1.find "campo_BD = '%" & variable_buscada_alfa & "%'"

Comprueba si encontraste algo asi:
if m_orecordset1.absoluteposition <> m_orecordset1.adposeof then
'si encontraste registros
else
'no hay registros con el criterio de busqueda
endif

Muchas Gracias, voy a intentarlo