sql - VBA を使用してアクセス テーブルからデータを抽出して表示する

Question

リストボックスにレコードセットを抽出して表示する機能があります。

リストボックスには 1 つのフィールドしかありません。

リストボックスに「キャプション」列全体 (いくつかのフィールド) を表示する方法はありますか?

Function GetCaption() As String

   Dim db As Database
   Dim rst As DAO.Recordset
   Dim SQL As String
   Dim LCaption As String

   Set db = CurrentDb()

   SQL = "SELECT Caption FROM tblMainMenu"

   Set rst = db.OpenRecordset(SQL)

   If rst.EOF = False Then
      LCaption = rst("Caption")
   Else
      LCaption = "Not found"
   End If

   rst.Close
   Set rst = Nothing

   GetCaption = LCaption

End Function

Private Sub btnGetCaption1_Click()

    LstBx.RowSourceType = "Value List"
    LstBx.RowSource = GetCaption

End Sub

Private Sub Form_Load()

    LstBx.RowSource = ""
    btnGetCaption1.Caption = DLookup("ReportID", "tblMainMenu", "ReportID = 1")

End Sub