"Buscar Siguiente" con ADODC en VB6

Hola.

La situación es la siguiente:

Tengo una aplicación en vb6 la cual es una base de datos conectada con access y adodc. Tengo un botón de "Buscar" y funciona muy bien al buscarme los registros que necesito, en este caso la cédula del usuario; el problema es que solo me busca el primer registro con cédula del usuario que se creo en la base de datos, si existe otro registro con la misma cédula no me lo busca. La pregunta es: ¿Como puedo hacer para Buscar el siguiente registro con el mismo número de cédula, y el siguiente, y el siguiente?

Este es el código que tengo en el Botón buscar:

Private Sub BUSCAR_Click()
x = InputBox("INGRESE CÉDULA DEL USUARIO", "BÚSQUEDA DE INGRESO")
Adodc1.Recordset.MoveFirst
While Not (Adodc1.Recordset.EOF = True)
If UCase(x) = Adodc1.Recordset(0) Then
Exit Sub
End If
Adodc1.Recordset.MoveNext
Wend
MsgBox ("NO EXISTE REGISTRO")
Adodc1.Recordset.MoveFirst
End Sub

Alguien que me ayude de verdad!!!!