Visual Basic 6 - [vb6] metodo find

Ciao spero in un vostro aiuto
tramite il metodo find
mi posiziono esattamente su un recordset in un archivio access

adoPrimaryRS.Find id

poi faccio scorrere in avanti i recordset cosi :

While Not adoPrimaryRS.EOF
Wend


l'aiuto che vi chiedo e quello di poter fermare
While Not adoPrimaryRS.EOF

su un altro id
prescelto

non sto riuscendoci
grazie

siccome non so lavorare con i db e vb6 ti posso solo fare uno pseudocodice:

dim stop as boolean, id as integer
stop = false
inizia ciclo:
id = id_corrente
if id = "tuo_valore" then
stop = true
end if
if stop = true then
esci dal ciclo
end if
fine ciclo(ricomincia se stop=false).

adoPrimaryRS.MoveFirst ' mi posiziono al primo recordser
    ultime = InputBox(" Inserisci il numero di estrazioni da controllare ", "ID") 
     ultime = ultime
     cerca = (adoPrimaryRS.RecordCount) - ultime
     cerca = "ID=" & UCase(Trim(cerca)) & ""
       
        adoPrimaryRS.Find cerca
    While Not adoPrimaryRS.EOF
DoEvents
adoPrimaryRS.MoveNext
Wend

   adoPrimaryRS.MoveLast

   Else
    adoPrimaryRS.MoveLast
   End If

questo è il codice che uso
per fare il ciclo agli ultimi N recordset scelti tramite INPUTBOX
txtFields(0).text è il numero ID del recordset corrente

supponento che adoPrimaryRS.RecordCount = 3178
io mi posiziono sul
3100

poi faccio iniziare il ciclo sopra immettendo esempio
7 nel input

il ciclo inizia dal3171 ed arriva al 3178

mentre

essendo che sono posizionato sul recordset 3171
dovrei immettere 7
quindi il ciclo dovrebbe iniziare
dal 3164
e finire al 3171


ho provato il tuo codice

ma non fa

come lo hai "trasformato"?
che errore da?

a dim stop mi dice
previsto identificatore

ho scritto cosi

dim stop as boolean
Dim id As Integer
stop = false

adoPrimaryRS.MoveFirst ' mi posiziono al primo recordser
    ultime = InputBox(" Inserisci il numero di estrazioni da controllare ", "ID")
     ultime = ultime
     cerca = (adoPrimaryRS.RecordCount) - ultime
     cerca = "ID=" & UCase(Trim(cerca)) & ""
       
        adoPrimaryRS.Find cerca
    While Not adoPrimaryRS.EOF
DoEvents
adoPrimaryRS.MoveNext




id = txtFields(0).Text
If id = "tuo_valore" Then
stop = true
End If
if stop = true then
esci dal ciclo
End If
Wend
  adoPrimaryRS.MoveLast

cioè ti da erroe e ti evidenzia "dim stop as boolean" O.o???

p.s. Comunque sarebbe meglio anche se metti il numero dell'errore.

errore di compilazione :
previsto :identificatore

solo questo

ma questo errore te lo da quando cerchi di compilarlo?

se si, cosa ti dice se provi ad eseguirlo nell'IDE di vb6?