access vba ADOを利用して得たＤＢテーブルデータの値をフォーム画面に表示したい

Question

わかりにくい内容かもしれませんがどうぞよろしくお願いいたします。

Accessで、フォーム画面を作っています。
表題にあるように、ADOを利用してSQLサーバーへ接続、テーブルのデータを取得（RecordSet）しています。
このデータを、ボタンのクリックイベントとしてメインフォームに設置しています。

新たにサブフォームを追加したのですが、ここにボタンのクリック結果を表示させたいのです。サブフォームはデータシート形式です。

つまり、メインフォームのプログラムであるRecordSetを、サブフォームのデータソース？にしたいのです。

どのようなプログラムを書けば、下記のコードの実行結果をサブフォームに出すことができるでしょうか。
何卒よろしくお願いいたします。

Private Sub command_Button_Click()

Dim dbCn As ADODB.Connection
Dim dbRs As ADODB.Recordset
Dim dbCom As ADODB.Command
  
Set dbCn = New ADODB.Connection

dbCn.Open "Provider=SQLOLEDB.1;;Persist Security Info=True;User ID=eg;Initial Catalog=;Data Source=*"

Set dbCom = New ADODB.Command
dbCom.ActiveConnection = dbCn


dbCom.CommandText = Me!SQL
 'dbCom.CommandText = "select * from eportnet_dbkg.dbo.tbmCountry"
 
Set dbRs = New ADODB.Recordset
Set dbRs = dbCom.Execute

  Do Until dbRs.EOF
   Debug.Print dbRs(0).Value & "," & dbRs(1).Value & "," & dbRs(2).Value _
   & "," & dbRs(3).Value & "," & dbRs(4).Value & "," & dbRs(5).Value
   dbRs.MoveNext
     
     Loop
         
 



 
dbRs.Close
Set dbRs = Nothing

dbCn.Close
Set dbCn = Nothing

Set dbCom = Nothing

End Sub

Comments

[twck]

３日間のあいだにほぼ同じ質問を４回もしている。
https://teratail.com/questions/28587
https://teratail.com/questions/28639
https://teratail.com/questions/28720
https://teratail.com/questions/28755
理解しようとしていないのか？
しかも解決済みにしないで新たに同じ質問を上げるのは回答者に対して失礼。

[nekomura]

申し訳ございませんでした。
なかなか回答がつかずせっぱつまってしまい、大変失礼いたしました。

Answer 1

サブフォームのRecordsetプロパティにdbRsをセットすることで実現できると思います。
Set サブフォーム.Recordset = dbRs

https://msdn.microsoft.com/ja-jp/library/office/ff835419.aspx

Comments

[nekomura]

ご丁寧ありがとうございます。
二度も同じような質問をしてしまい大変申し訳ありませんでした。