レコードセットをCSV出力するメソッドってありますか？
地道に一つずつレコードセット取ってきて
do until rs.eof
print　フィールド１　& "," & フィールド２　& "," & フィールド３　& "," …
movenext
loop
ってやるしかない？