Создание dbf файла из ексель - VBA

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

как создать dbf файл из ексель из использованием ADO в ADO я запуталсь......именно в конретной информации.... 1. подключение к dbf(и к чему еще можно с помощю ado подключится и как); 2.создание файла dbf (другие варианты); 3.запись; 4.сохранение; 5.закрытие. спасибо за любое инфо

прошу любую информацию ADO книги, ссылки, любые примеры..... я ни к чему толковому не прышел интересует: 1.Как подключится к dbf; 2.создание dbf; 3.запись в dbf;

что искать по даной теме или полный игнор.....на тему ADO может лутше создать тему.....обшырное использование ADO

скупо как то получается

Решение задачи: «Создание dbf файла из ексель»

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

                                  '::: Этап 1 - Определяем, откуда мы запущены
      homeDir=Wscript.ScriptFullName   '::: Это - полный путь нашего файла         
      k=Instrrev(homeDir,"\")          '::: Ищем "\" с конца
      homeDir=left(homeDir,(k-1))      '::: Это - чистое имя директории 
      '::: Этап 2 - Создаем ADO-соединение и пустой набор записей
      Set Conn = CreateObject("ADODB.Connection")
      Set RS = CreateObject("ADODB.Recordset")
      DSNName = "DRIVER=Microsoft dBase Driver (*.dbf);DBQ="   
      DSNName = DSNName & HomeDir 
      '::: Этап 3 - Открываем соединение  
      Conn.Open DSNName
      '::: Этап 4 - готовим SQL-оператор для создания таблицы
      SQL="create table Testtable (N1 Float, N2 Float)"
      '::: Этап 5 - выполняем его
      RS.Open sql,Conn,3,3
      '::: Этап 6 - Добавляем в таблицу 100 записей
      For i=1 to 100
          SQL="insert into testtable values (" & cstr(i) & "," & Cstr(2*i-1) & ")"
          RS.Open sql,Conn,3,3
      Next
      '::: Этап 7 - суммируем...      
      SQL="Select sum(N1),sum(N2) from Testtable"
      RS.Open SQL,Conn,3,3
      SS1=RS(0)      
      SS2=RS(1)
      MsgBox SS1
      MsgBox SS2 
      Rs.Close
      SQL="Drop table Testtable"
      RS.Open sql,Conn,3,3
      MsgBox "Таблица удалена!"
                        