Экспорт данных из Access в Excel через VB 6.0

Private Sub DoCmd_Click()
Dim Ex As Object
Dim R, C, j, M(), Z()
Dim R0, C0
With Me.Adodc1.Recordset
R0 = .RecordCount
C0 = .Fields.Count
If R0 * C0 = 0 Then Exit Sub
    ReDim Z(R0, C0)
     .MoveLast
     .MoveFirst
        For R = 0 To R0 - 1
            For C = 0 To C0 - 1
                       Z(R, C) = .Fields(C)
            Next
            .MoveNext
        Next
Set Ex = CreateObject("Excel.Application")
Ex.Workbooks.Open App.Path & "\x.xls"
Ex.Visible = True
End With
 
With Ex.sheets(1)
    .Select
    .range(.cells(1, 1), .cells(R0, C0)) = Z
End With
 
End Sub