Visual Basic - Recorre un base de datos

HOLA , NECESITO UN FAVOR UN CODIGO QUE ME COMPARE UN DATO DE UNA CAJA DE TEXTOEN VISUAL BASIC CON LOS DATOS DE UNA TABLA Y ME DIGA SI ESTA EL DATO LA BASE DE DATOS ESTA EN ACCESS

data1.recordset.movelast
Total=data1.recordset.recordcount 'cuenta los registros de la BD
data1.recordset.movefirst
for i = 1 to Total
if text1.text = data1.recordset.CAMPO THEN
son iguales
end if
data1.recordset.movenext
next i

Espero que te sirva