CopyFromRecordset不起作用

sd560

Private Sub Test()
    Dim i, j, k, arr, brr, x, y
    Dim conn As Object  '连接对象
    Dim rst  As Object '记录表
    Set rst = CreateObject("ADODB.Recordset") 'ADO连接
    Set conn = CreateObject("ADODB.connection") 'ADO连接
    Dim 文件路径, sql
    Set xlapp = CreateObject("excel.application")
    文件路径 = PickFile
    Set 文档 = xlapp.Workbooks.Open(文件路径)
    xlapp.Visible = False
    conn.Open "Provider = Microsoft.ACE.OLEDB.12.0;Data Source=" & 文件路径 & ";extended properties=""excel 12.0;HDR=YES"""
    sql = "select * from [委托单$]"
    rst.Open sql, conn, 3, 2
    文档.Sheets(2).Range("a2").CopyFromRecordset rst    '方法一
    xlapp.Sheets(2).Range("a2").CopyFromRecordset rst   '方法二
    文档.Save
    文档.Close
    xlapp.Quit
    rst.Close
End Sub

事先引用

运行正常不报错，但是没有任何数据被输入都表格中
如果采用以下数组的方法则一切正常，代码如下：
'    arr = rst.GetRows
'    arr1 = Transpose2(arr)
'    xlapp.Worksheets("sheet3").Range("A2").Resize(UBound(arr1, 1), UBound(arr1, 2)) = arr1

请问一下是怎么回事？