экспортировать таблицу из access в excel через макрос

нужно экспортировать таблицу из access в excel через макрос, написанный в vba
таблица: http://db.tt/1UVAIk5
а вот код макроса: http://db.tt/snK8Dpn
Но почему-то не работает
прошу помощи!
Вот код
Sub Макрос2()
Application.Goto.Reference = "Макрос2"
Dim bd As Database
Dim zap As Recordset
Set bd = OpenDatabase("C:\Database3")
Set bd = bd.OpenRecordset("//", bd.openDynaset)
zap.MoveLast
If zap.RecordCount > 0 Then
MsgBox (10 + Str(zap.Recordest))
Dim i, j As Single
For i = 1 To zap.RecordCount
zap.MoveFirst
For j = 0 To 9
Cells(i, j + 1) = zap.Fields(j)
Next j
zap.MoveNext
Next i
End If
Application.Run "Database3.accdb", import
End Sub