各位前辈求助！！

nichang0526

求助前辈！ado查询出来的一条数据，赋值给listbox，结果只显示一列，怎么按行显示？

nichang0526

Private Sub TextBox1_Change() Dim sqlst As String Dim arr Dim adrs As Object Set adconn = CreateObject("adodb.connection") Set adrs = CreateObject("adodb.recordset") adconn.Provider = "microsoft.ace.oledb.12.0" adconn.Open "D:\360安全浏览器下载\database1.accdb" If adrs.State = 1 Then adrs.Close sqlst = "select * from sheet1 where 简码 like '%" & Me.TextBox1.Value & "%'" adrs.Open sqlst, adconn, 1     If adrs.BOF And adrs.EOF Then         Me.ListBox1.Clear     Else         arr = Application.Transpose(adrs.GetRows)         Me.ListBox1.List = arr         Me.ListBox1.ColumnCount = 13         Me.ListBox1.ColumnWidths = "50,60,80,40,30,80,80,50,50,50,50,50,50"     End If End Sub