Metodo FIND (vb6)

[Say_No_More]

Hola amigos el problema que tengo es que no funiona la busqueda, es decir simpre da el mismo resultado (muesta siempre elmsmo registro), inclusive cuando el registro no existe. hay algmo al en el coigo o se ace de alguna otra forma que no se?. tiene algo que ver con que se aga en el form_load y no desde un boton?
les paso el codigo (pego todo el form_load)

Private Sub Form_Load()
Dataconsul.rsFaQ.MoveFirst
For i = 0 To 102
Dataconsul.rsFaQ.MoveNext
lblFAQ(i).Caption = Dataconsul.rsFaQ(2)
Next i

txtidPAC = FRMPACIENTES.txtidPAC
LBLPACIe.Caption = FRMPACIENTES.txtAPELLIDO
LABELPACENOM.Caption = FRMPACIENTES.txtNOMBRES
LABELPACIEOS.Caption = FRMPACIENTES.txtOBRA_SOCIAL
LABELPACIENUMOS.Caption = FRMPACIENTES.txtNUM_OBRA_SOCIAL
With Dataconsul.rsANAMrta

.MoveFirst
.Find "IDPAC =" & txtidPAC & "", 0, adSearchForward, 1
If .EOF Then
MENSAJE = MsgBox("El Paciente actual no tiene datos cargados." + Chr(10) + "¿Desea cargarlos ahora?", vbYesNo, "Anamnesis del Paciente")
If MENSAJE = vbYes Then
Dataconsul.rsANAMrta.AddNew
txtidPAC = FRMPACIENTES.txtidPAC
End If
End If
End With
End Sub

GraCias!!!

[GeoAvila]

la verdad nunca le había puesto algo depues del find
.movefirst
.Find "IDPAC =" & txtidPAC & ""

yo unicamente lo uso asi y me funciona.



nos vemos..

[Say_No_More]

SOLUCIONADO

la busqueda la estaba realizando de un textbox vinculado a la bd, entoces cada vez que abria el form, me modificaba los datos (en este caso el que usaba para buscar, por eso siempre aparecia el msmo registro).

el cod esta bien pero la busqueda la hago desde un textbox que no se vincula a la bd

GRacias por la ayda...