お世話になります。

レコードセットのカレント行を取得したいのですが
どうしたらよいのでしょうか？

Set db = OpenDatabase(開くEXCELパス, False, False, "Excel 8.0;HDR=no;IMEX=1;")
Set RS = db.OpenRecordset(シート名))

Do Until RS.EOF = True
’ここで、現在のカレント行を取得したい


RS.MoveNext
Loop

RS.MoveNextで一行づつ
データを取得しているのですが、
ループしている間に常に今何行目かを取得しておきたいのですが
分かりません

どなたかご存知の方、ご教授下さい。
宜しくお願い致します。m(_  _)m

> ループしている間に常に今何行目かを取得しておきたいのですが
> 分かりません

行数程度なら、自分で、
  RowNumber = 0
  Do Until RS.EOF
    RowNumber = RowNumber + 1
        :
    RS.MoveNext
  Loop
のようにカウントしておけば良いのでは?


一応、それに近いものとして、「AbsolutePosition プロパティ」という物もありますけどね。
このプロパティは、0 から始まる整数を返します。(ADOの場合は、1から始まる)

ただし、AbsolutePosition プロパティは、レコード番号の代わりとしては使用しないでください。
レコード位置の保持が目的であれば、かわりに Bookmarkプロパティを利用します。
(なお、Bookmark の値はデータベース固有のバイナリデータです)

ご教授有難う御座いました。m(_  _)m

カウントを保持していく方法で行きます

有難う御座いました。
又何かあれば、宜しくお願い致します。