Visual Basic 6 - [vb6] metodo find

grazie Alfonso

non gira il tuo codice nel senche da errore


io ho provato cosi

  Do While Not adoPrimaryRS.EOF
   If fermaciclo = adoPrimaryRS.Fields("ID").Value Then
    Exit Do ' esci dal ciclo
    Else
   'continua
adoPrimaryRS.MoveNext
End If
Loop

solo che non si ferma

e continua sino alla fine dei recordset

come fare??

ok