Visual Basic - recorrer registros

Do While horprod.rs.EOF = False
If kodii = horprod.rs.Fields("idsup") Then
horprod.rs.Delete
End If
horprod.rs.MoveNext
Loop

el codigo esta bien pero solo me recorre 2 veces.si tengo 20 registros solo lo recorre 2 veces.que puedo hacer?¿

hola

yo tengo una aplicacion con datagrid y adodc donde rrecorro registros y hago operaciones haber si puedes darte una idea con este codigo que tengo:

If Adodc2.Recordset.BOF = False And Adodc2.Recordset.EOF = False Then
DataGrid2.Refresh
Adodc2.Refresh
Adodc2.Recordset.MoveFirst
While Not Adodc2.Recordset.EOF
ci = DataGrid2.Columns.Item(0)
aci = Round(aci + ci, 3)
d = DataGrid2.Columns.Item(1)
tt = DataGrid2.Columns.Item(2)
CD = Round((ci / d), 3)
c = Round((ci / d) * (tt / 8), 3)
ac = ac + c
DataGrid2.Columns.Item(3) = CD
DataGrid2.Columns.Item(4) = c
Adodc2.Recordset.MoveNext
Wend
End If

sigue =.solo me recorre la lista 2 veces

Antes de iniciar el While, refresca el recordset:

horprod.refresh

entre tanto, verifica realmente que tienes en el Source o el SQL, o el Filter. ya que sin darte cuenta, el SQL o el filter, solo seleccionen 2 registros.
de resto, el codigo esta bien.

Andres-Loud_in
Medellin-Colombia

Maldición!!!!

tengo el mismo error u.u
alguien me podría auxiliar :)

Gracias