如何使用多列向列表框中的列标题添加文本？

Question

我想从数据库中获取一些数据，然后将其显示在具有多列的列表框中。这可以为列标题分配一些有意义的文本吗？现在，这些列标题显示为空。

我有超过15列，而且，它是动态的，这意味着根据搜索结果，列数可能会发生变化。 [尚未实施]

在这种情况下使用Label作为列标题似乎不是一个更好的解决方案。还有其他办法吗？

我的代码如下：

Dim conn As New Connection
Dim rs As New Recordset

strcon = "Provider=Microsoft.ACE.OLEDB.12.0;" & _
"Data Source=C:\Users\raj.kamal\Desktop\ActionWord.accdb;" & _
"User Id=;Password="

conn.Open (strcon)
InputSearchText = SearchTxtBox.Text
qry = "SELECT * FROM ActionWordTable where ActionWordName like" & "'%" & InputSearchText & "%'"
rs.Open qry, conn, adOpenKeyset
rs.MoveFirst
i = 0
With Me.SearchResultListBox
.Clear
.ColumnCount = 7
.ListStyle = fmListStyleOption
Do
.AddItem
.List(i, 0) = rs![ActionWordName]
.List(i, 1) = rs![Parameter1]
.List(i, 2) = rs![Parameter2]
.List(i, 3) = rs![Parameter3]
.List(i, 4) = rs![Parameter4]
.List(i, 5) = rs![Parameter5]
.List(i, 6) = rs![Parameter6]
i = i + 1
rs.MoveNext
Loop Until rs.EOF
End With
rs.Close
conn.Close


End Sub

，结果如下：