VB039
EOF loop without MoveNext
Visual Basic 6
Warning
VB6
A loop on rs
a loop on rs.EOF whose body never advances the recordset spins forever on the first row — invisible until the table has data.
Why this severity
a loop on rs.EOF whose body never advances the recordset spins forever on the first row — invisible until the table has data.
Known false positives
the advance happens inside a helper call the rule cannot see; any Exit, GoTo or reassignment already counts as progress.
Remediation example
Do While Not rs.EOF
total = total + rs!Amount
rs.MoveNext
Loop