You need to use MoveNext to get to the next row however, you need to check for last row by using Rs1.RecordCount to check how many rows there are
for x = 0 to Rs1.RecordCount
;;;;;
;;;;;
Rs1.MoveNext
Next x
If you hard code each movenext then you should use Rs1.EOF to check end of file or you will get an error just like any file.
for x = 0 to Rs1.RecordCount
;;;;;
;;;;;
Rs1.MoveNext
Next x
If you hard code each movenext then you should use Rs1.EOF to check end of file or you will get an error just like any file.