VB6 - DataGrid - myRecordSet.moveNext

[Laufwerk]

En el caso de que sea distinto pasaria a la linea despues del loop, verdad?

Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
SiguienteLinea


pero esto no puedo hacerlo dentro de él mismo pq me saldria algun error, no?
me explico

si yo ya tengo este codigo para moverme del 1r al ultimo registro, no podria poner tu codigo dentro pq no me serviria

Do While Not myRecordset.EOF
Dim MiVar As String
MiVar = myRecordset!pbtnpet
Do While myRecordset!pbtnpet = MiVar
myRecordset.MoveNext
Loop
Loop


gracias!!!