VBA экспорт файла в Excel

Всем првивет. Экспортирую результат запроса в Excel. Пишет ошибку 429: ActiveX component cant create object. Что делать, может я какую библиотеку не подключил...или в кодже ошибка.

Sub ExportFile()

Dim db As DAO.Database
Dim rst As DAO.Recordset

Dim xlApp As Excel.Application
Dim xlBook As Excel.Workbook
Dim xlSheet As Excel.Worksheet

Dim i As Integer
Dim filename As String

On Error GoTo HandleErr

Set xlApp = New Excel.Application

Set xlBook = New Excel.Workbook
Set xlSheet = xlBook.ActiveSheet




Set db = CurrentDb
Set rst = db.OpenRecordset("SELECT Урожай FROM Урожайность;")

If rst.EOF And rst.BOF Then
MsgBox "Ошибка!"
GoTo ExitHere
End If

With xlSheet

For i = 0 To rst.Fields.Count - 1
With .Cells(5, 1 + i)
.Font.Size = 8
.Value = rst.Fields(i).Name
.Font.Bold = True
End With
Next
.Range("A6").CopyFromRecordset rst
End With

ExitHere:

On Error Resume Next

Set rst = Nothing
Set db = Nothing
Set xlApp = Nothing
Set xlBook = Nothing
Set xlSheet = Nothing


HandleErr:
MsgBox Err & ":" & Err.Description, , "Îøèáêà"
Resume ExitHere
Resume Next


End sub

GoodFellow

...может я какую библиотеку не подключил

А может ты какую библиотеку не подключил?

Microsoft Office 11.0 Object Library например

неправильно книгу создаешь

Set xlBook= xlApp.Workbooks.Add

Подключил библиотеку. Ошибка все равно.

А так:

Set xlBook = CreateObject("Excel.Application")
With xlBook 
    .Workbooks.Add
    .ActiveSheet.Name = "Отчет"
    .Visible = True
End With

?

Вы совершенно правы. Спасибо всем.