Как програмно из VB сделать экспорт из таблицы Access в Excel

Формулировка задачи:

Пример, имеется база данных Data1. связано с таблицей базы данных Access и ее (таблицу)с приложения VB я заполняю...

 Data1.DatabaseName = 'DatBasPt.mdb'
 Data1.RecordSource = 'Table1'
 Data1.Refresh

Вопрос: Как из VB сделать экспорт, например в файл Табл.xls ???? Спасибо

Решение задачи: «Как програмно из VB сделать экспорт из таблицы Access в Excel»

textual
                            Листинг программы 
                        

                            SQL = 'SELECT * INTO '
         '[Excel 8.0;HDR=Yes;DATABASE=c:\customers.xls].[Sheet1] '
         'FROM [Customers]';
                        