Método SEEK y ADO, please ayuda!!!

Edgar
15 de Julio del 2004
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:
If Text2.Text <> "" Then
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 = ""
limpiar
TXTcedula.SetFocus
Exit Sub
End If
TXTapell1 = vzla1.Fields("Apell1")
If vzla1!Apell2 <> "" Then
TXTapell2 = vzla1.Fields("Apell2")
End If
TXTnombre1 = vzla1.Fields("Nombre1")
If vzla1!Nombre2 <> "" Then
TXTnombre2 = vzla1.Fields("Nombre2")
End If
TXTfech_nac = vzla1.Fields("Fech_nac")
If vzla1!Fech_expe <> "" Then
TXTfech_expe = vzla1.Fields("Fech_expe")
End If
Else
varmsg1 = MsgBox("No es localizada la Base de
Datos", vbCritical, "Atención")
TXTcedula.Text = ""
CMDbd.SetFocus
End If

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