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

acess 数据表的问题