Este truco de visual Basic 6.0 explica cómo recorrer un recordset.
While Not Rs.EOF
...instrucciones
Rs.MoveNext Wend