DataGridに通し番号をつけるには？

レベル１ 2005-01-30 21:34:01 No: 88112

データベースからDataGridにレコードをセットするときに
行を１つ増やしてそこ通し番号(1,2,3,...)を付けたいのですが
どうしたらいいか困ってます。
DCountでできると過去ログにありましたが今の実行環境(VB6.0(SP6),JET4.0)
ではDCountは定義されていないというエラーがでてしまいます。

PGで実際に通し番号を付けようと思い以下のようなコードを打ちましたが
上手くできませんでした。

FOR IntLoop = 1 to ADODB.recordset.recordcount
     DataGrid1.row = DataGrid1.Columns.item(1) '通し番号を付ける行
     DataGrid.col  = IntLoop                   '通し番号を付ける列
     DataGrid.Columns.item(1).text = IntLoop   '通し番号をいれる
NEXT

いな 2005-01-30 21:55:36 No: 88113

データベースが何かは知りませんが、
oracle 9以降ならば、sqlでrow_number()が使えました。

レベル１ 2005-01-30 22:11:01 No: 88114

説明不足ですいませんでした。
データベースはAccess2000です

レベル１ 2005-01-30 22:12:19 No: 88115

説明不足ですいませんでした。
データベースはAccess2000です

いな 2005-01-31 00:56:36 No: 88116

そうですか、じゃ先ほどのレスは無視してください。