LeagueOneDale,
Having the same problem with almost identical coding, what did you change to get the loop to run without error? I have been using something along the lines of:
Do While Not rs.eof
x = rs!x
Do While rs!= x and Not rs.eof
rs.MoveNext
Loop
rs.MoveNext
Loop
Cheers,