SoloCodigo

Salu2.
No estoy seguro de lo que es control Adoc, soy un poco nulo con los términos.

   Primeramente te dire que me parece escesivo codigo para lo que necesitas.

Pareces querer conprobar una introducción de user con una tabla, y si no existe lo añades., si es eso, conprueba sin el recordset, no te hace falta. ábrelo con una select.

VarString="SELECT * FROM AdocClientes WHERE Celula=" & TuVar
set VarRecordSet= Base.openrecordset(VarString,DbOpendynaset);

Si te da eof no existe. y lo añades.

Te dire en segundo lugar que creo pienso que tu codigo hace lo que le dices que compruebe un registro y continue, normalmente tendrias que hacer un bucle con un WHILE NOT "final del recordset" por ejemplo.

Bueno espero haberme explicado.

 Hola amigo creo igual que el que te ayudo que el codigo es demasiado grande, puedes provar con este framento es mucho mas util

Sub BUS3()
  Dim aux As String
  Dim encontro as integer  
  encontro = 0
  rs.MoveFirst
  aux = UCase(InputBox$("Buscar cedual:", "Buscando cliente"))
Do
  If (rs!Cedula = aux) Then
      txtCedula.Text = rs!cedula
      txtNombreCliente.Text = rs!NombreCliente
      txtNroCuenta.Text = rs!NroCuenta
      txtTpoNomi.Text = rs!TpoNomi
      txtTpoCuenta.Text = rs!TpoCuenta
      txtDireccionHabt.Text = rs!DireccionHabt
      txtTelfHabt.Text = rs!TelfHabt
      txtTelfMovil.Text = rs!TelfMovil
      txtDirecTrbjo.Text = rs!DireccionTrbjo
      txtTelfTrbjo.Text = rs!TelfTrbjo
      txtRefciaFamiliar.Text = rs!RefciaFamiliar
      MsgBox "Este es un cliente presione clic para continuar",       vbExclamation, "Resultado"
     Encontro = 0  
  End If
  rs.MoveNext
Loop Until (rs.EOF)
If encontro = 1 Then
    MsgBox "No se encontro el dato", vbExclamation, "Resultado"
End If
End Sub

Amigo como puedes observar la gran diferencia radica en el msgbox
que detiene la busqueda para observar los datos y al precionar aceptar
el programa continua con la busqueda del siguiente registro.
Espero haber podio ayudarte, por favor informanos como te fue.
Y NO ES TANTO CODIGO! hace lo mismo
Ah! en cuanto al ado te lo quedo debiendo, pero si encuentro algo te aviso.