您可以在Array中获取记录集，然后像这样填充ListBox.而且由于您是动态填充ListBox的，因此Headers在这里不起作用，但是您可以在ListBox上方添加带有标题的Labels.

You can get the recordset in an Array and then populate the ListBox like this. And since you are populating the ListBox dynamically, the Headers will not work here but you can add the Labels with headers just above the ListBox if that works for you.

Dim arr
arr = rs.GetRows
.List = arr