VBA中access产生的记录集通过数组传递到LISTBOX中可以添加表头

Sub rstolistbox()
    Dim rs As DAO.Recordset
    Dim arrData() As Variant
    Dim i As Long, k As Integer
    ' 创建记录集对象
    Set rs = CurrentDb.OpenRecordset("SELECT * FROM YourTable")
    
    ' 确定数组长度
    ReDim arrData(1 To rs.RecordCount, 1 To rs.Fields.Count)
    
    ' 循环遍历记录集并将数据添加到数组中
    i = 0
    Do While Not rs.EOF
        i = i + 1
        For j = 0 To rs.Fields.Count - 1
            arrData(i, j) = rs.Fields(j).Value
        Next j
        rs.MoveNext
    Loop
    
    ' 关闭记录集
    rs.Close
    
    ' 显示数组内容
    For i = LBound(arrData, 1) To UBound(arrData, 1)
        For j = LBound(arrData, 2) To UBound(arrData, 2)
            Debug.Print arrData(i, j)
        Next j
    Next i
    For k = 0 To UBound(arrData)
        ListBox1.AddItem arrData(k)
    Next i
End Sub