Импорт и экспорт на VB

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

Люди помогите плз с импортом и экспортом. Проблема такая необходимо программно с помощью VB экспортировать таблицы из одной базы Access в другую. Далее экспортировать таблицы Access в Excel и наконец импортировать excel файлы в access. Нет никаких мыслей по этому вопросу поэтому прошу по возможности подробных объяснений. Хотелось бы все это сделать с использованием DAO. Заранее благодарен.

Решение задачи: «Импорт и экспорт на VB»

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

                            Sub main()
Dim ExcelApp As Object, ExcelWB As Object
Dim objRst As Recordset
 
    Set ExcelApp = GetExcelObject()
    ExcelApp.Visible = True
    Set ExcelWB = NewWorkbook(ExcelApp)
 
    Set objRst = CurrentDb.OpenRecordset('')
    If objRst.RecordCount <> 0 Then
        ExcelApp.Sheets(1).Range('A1').CopyFromRecordset objRst
    End If
End Sub
                        