access vba バインドについて

Question

よろしくお願いいたします。

下記のようなコードを書き、アクセスからデータベースにアクセスして、データベースの内容を一覧表示したいのですが。。。
コメントアウトしている「確認処理？」の部分についてご教示をお願いします。
この部分の書き込みで、取得したデータベースの内容を一覧表示したいのですが、初めはDo Until~Loopなどの処理で行うつもりだったのですが、
「バインド」処理を使えばもっと簡単に(1行のコードなどで）表記が可能と聞き、いろいろ調べたのですが結局わからずこちらに質問に来ました。

コメントアウト部分に記載する適切な内容をどなたかご教示ください。
よろしくお願いいたします。
Private Sub test_Click()
Dim dbCn As ADODB.Connection
Dim dbRs As ADODB.Recordset
Dim dbCom As ADODB.Command

Set dbCn = New ADODB.Connection

dbCn.Open "Provider=*****：;Password=*****;Persist Security Info=True;User ID=e******;Initial Catalog=***;Data Source=****"

Set dbCom = New ADODB.Command

dbCom.ActiveConnection = dbCn
dbCom.CommandText = "select * from テーブル名"

Set dbRs = New ADODB.Recordset
Set dbRs = dbCom.Execute

'確認処理？

dbRs.Close
Set dbRs = Nothing

dbCn.Close
Set dbCn = Nothing

Set dbCom = Nothing

End Sub

Answer 1

色々と足りない情報があるのですが、たぶんこの質問は「もっと簡単に（1行のコードなどで）表記できる方法」が一番重要だと思うので、それを実現するための方法を考えます。

内容を一覧表示する「場所」が質問文に書かれていませんが、"Private Sub test_Click()" から推測するにフォーム上なのでしょう。
そしてレコードセットをバインドして一覧表示できるコードを「１行で書く」のであればグリッド系のコントロールを使用する方法しか思いつきません。
なのでフォーム上に ActiveXコントロール の "Microsoft DataGrid Control 6.0" を追加します。
コントロール名は "DataGrid1" とします。

で、DataGrid1コントロールにレコードセットをバインドするには"確認処理？"の場所に以下の１行を記述します。

Set DataGrid1.DataSource = dbRs

DataGrid1コントロールがレコードセットをバインドするには、データベース接続のカーソルがクライアント側になければならないので、"dbCn.Open" の前に以下の１行を記述します。

dbCn.CursorLocation = adUseClient

レコードセットを閉じてしまうとDataGrid1コントロールから一覧が消えてしまうので、以下のコードは削除します。

dbRs.Close 
Set dbRs = Nothing
dbCn.Close 
Set dbCn = Nothing
Set dbCom = Nothing 

あと、質問内容とは関係ありませんが、以下の１行は意味がないため削除します。

Set dbRs = New ADODB.Recordset

こんなところでしょうか？

Comments

[nekomura]

早速試してみました。
解決の糸口が掴め助かりました。ありがとうございます。
ご返信が遅れ大変失礼いたしました。