Visual Basic - Método Seek y ADO,como hago please?

Hola colega, tengo una gran duda ya que mi programa lo realice en DAO pero necesito cambiarlo a ADO para poner utilizar data reports y otros metodos de consultas. El método que utilice para realizar mis consultas fue con el SEEK ya que con ayuda en el foro llegue a esa conclusion porque por las diferentes formas que me dijeron que podia utilizar (Instrucciones SQL) no logre poder realizar lo que necesitaba que es realizar consultas de mas de 3 millones de registros.
El código que utilizo es el siguiente:
Set DataBase0 = DBEngine.OpenDatabase(CommonDialog1.FileName, True, True)
Set vzla1 = DataBase0.OpenRecordset("vnz1", dbOpenTable)
vzla1.Index = "PrimaryKey"
limpiar
vzla1.Seek "=", TXTcedula.Text
If vzla1.NoMatch Then
varmsg1 = MsgBox("Cédula de Identidad No encontrada", vbCritical, "Atención")
TXTcedula.Text = ""
TXTcedula.SetFocus
Exit Sub
End If
TXTapell1 = vzla1.Fields("Apell1")
TXTapell2 = vzla1.Fields("Apell2")
TXTnombre1 = vzla1.Fields("Nombre1")
TXTnombre2 = vzla1.Fields("Nombre2")
TXTfech_nac = vzla1.Fields("Fech_nac")
TXTfech_expe = vzla1.Fields("Fech_expe")

Agradezco tu ayuda ya que quisiera saber como puedo hacer para realizar estas mismas operaciones pero en ADO... Agradezco mucho de tu ayuda.. Suerte

Edgard:
Lo puedes realizar mediante SQL.... con la clàusula top: de esta manera podrìas ir paginando los datos de a 10.000 por ejemplo.... y no tendrìas que levantar la tabla entera.-