es muy sencillo pero te ayudará para empesar...
Código:
buscando = InputBox("Introduzca el N° a buscar", "BUSQUEDA DE lo q sea", 1)
With Adodc1
.Recordset.MoveFirst
While Not .Recordset.EOF
If .Recordset.Fields!campo1 = buscando Then
Exit Sub
Else
.Recordset.MoveNext
End If
Wend
saludos...
nos vmos...