arr数组为什么不能赋值

Private Sub TextBox1_Change()
Dim arr, arr1, arr2
ListBox1.ColumnCount = 7
ListBox1.ColumnWidths = "50;50;50;50;50;50"
If adrecd.State = 1 Then adrecd.Close
adrecd.Open "select * from 销售表 where 客户 like '" & TextBox1.Value & "'", adocn, 1
If Not (adrecd.EOF And adrecd.BOF) Then
arr = adrecd.GetRows
'arr1 = WorksheetFunction.Transpose(arr)
'arr2 = WorksheetFunction.Transpose(arr1)
ListBox1.List = Application.Transpose(arr)
Else
ListBox1.Clear
End If
End Sub

直接用Connection把数据放数组我的写法是
arr = adrecd.Execute(SQL语句).getrows
像你这种先OPEN然后再写入的我都是先写进记录集后再赋值给数据的，印像中Connection是没有 EOF BOF的

acess 数据表的问题