Форумы HiProg.com - MS ACCESS, VBA, VB

ник: Василий
Доброго всем дня! И с праздником! Пытаюсь освоить хотя бы азы экспорта в эксель, вчера наваял что то вроде :

Public Sub Export()
Dim objExcel As Excel.Application
Set objExcel = New Excel.Application
With objExcel
.Visible = True
.Workbooks.Add
.Range("a1") = Forms.Company. [company]
.Range("a1").ColumnWidth = 23.29
End With
End Sub

Вопрос: тут идет ссылка на конкретное значение, а как вывести весь список значений из этого поля?
Заранее спасибо.