Sql server 尝试将MS SQL Server表中的值放入Excel VBA表单中的列表框

我试图以表单的形式显示列表框中表中的数据，但没有成功。 以下是我正在使用的代码：

    Dim cnt As ADODB.Connection
    Dim rst As ADODB.Recordset
    Dim stDB As String, stConn As String, stSQL As String
    Dim xlCalc As XlCalculation
    Dim vaData As Variant
    Dim k As Long
    Dim cs As String
     
    Set cnt = New ADODB.Connection
     
    cs = "DRIVER=SQL Server;"
    cs = cs & "DATABASE=dbname;"
    cs = cs & "SERVER=."


   
     
    cnt.ConnectionString = cs
     
     
    stSQL = "SELECT * from table"
    
   
     
    With cnt
        .CursorLocation = adUseClient
        .Open stConn
        Set rst = .Execute(stSQL)
    End With
     
    With rst
        Set .ActiveConnection = Nothing
        vaData = .GetRows
    End With
     
    cnt.Close
    
    ListBoxReqJobs.Value = vaData
    'this is the part I need help with. 
     
    Set rst = Nothing
    Set cnt = Nothing


End Sub

---

关于如何正确显示数据有什么建议吗？我似乎无法格式化数据，以正确地用行显示它，并且将有大约5-6列。

您做了什么吗？还有什么建议吗？我仍然无法理解。不过，我确实得到了要显示的数据，但它是按列显示的，而不是按行显示的。