Visual Basic - no recorre todos

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

con este codogo deverua de borrar todos los que coincidieran con kodii pero solo borra dos registros que coincidan en vede todos.que puedo hacer?¿?¿?¿

Para que no tengas fallos debes uar consults Sql

Dim Dbs As Database, Resultado As Recordset
Set Dbs = OpenDatabase(App.Path & "\Datos.mdb")
Dbs.Execute "DELETE FROM tabla WHERE idsup='" & kodii & "';"
Dbs.Close