ms-access - msaccess vbaのリストボックスのこのコードの何が問題になっていますか

Question

VBAコードを使用してリストボックスにデータを入力するためにこのコードを書きましたが、機能しません。何が悪いのか理解できません。

Private Sub Form_Load()
Dim db As DAO.Database
Dim rs As DAO.Recordset

Dim strsql As String
strsql = "select hotel_id, hotel_name from Hotels"
Set db = CurrentDb
Set rs = db.OpenRecordset(strsql)
Me.List0.RowSource = hotels                            'where hotels is name of table
Me.List0.ColumnWidths = "1 in; 2 in"
End Sub

Answer 1

変化する

Me.List0.RowSource = hotels 

に

Me.List0.RowSource = strsql

リスト行ソースを Access が認識できないテーブルに設定しようとしています。SQL 文字列が必要で、"strsql" がその文字列です。

次のように直接設定することもできます。

Me.List0.RowSource = "select hotel_id, hotel_name from Hotels"