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!!!