sql запрос select

Подскажите, пожалуйста, как вывести результат запроса в excel файл?

Set Ll = Zulu.ActiveMapDoc.Layers.Active
Set Result =Ll.ExecSQL("SELECT *******")

MsgBox Result
Set objExcel = CreateObject("Excel.Application") ' Создание экземпляра объекта Excel
objExcel.Visible = True ' Отображение окна Excel

' Создание новой книги Excel
Set objWorkbook = objExcel.Workbooks.Add()
Set objWorksheet = objWorkbook.Worksheets(1)

' Запись заголовков полей в первую строку
objWorksheet.Cells(2, 2).Value = "Наименование столбца"

objWorksheet.Range("A2:K2").Columns.AutoFit

' Запись данных из результата запроса
???