'oledb.vbs: выгрузка в dbf

 Set cnt = createobject("adodb.Connection")
 'важное поле - datasource (директория с dbf)
 cnt.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=d:\;Extended Properties=dbase III;Persist Security Info=False"
 cnt.Open
 
 'создание новой таблицы (если уже такая есть, то - будет ошибка)
 on error resume next
 cnt.Execute ("create table tbl1 (s1 varchar(30), s2 varchar(30))")
 ierr=onerror()

 if ierr = 0 then

   Set rst = createobject("adodb.Recordset")
   ' adOpenKeyset =  1  adLockOptimistic= 3 
   rst.Open "tbl1", cnt,  1 ,  3 
   
   str1 = ""
   str2 = ""
   For i =  1  To  100 
    str1 = "номер " +CStr(i)
    str2 = "другой номер " + CStr(i * i - i +  10 )
    rst.AddNew
    rst.Fields("s1").Value = str1
    rst.Fields("s2").Value = str2
    rst.Update 'сохранение изменений в dbf
   Next
   
   rst.Close
   msgbox("Добавление в таблицу завершено")
 
 end if
 cnt.Close
 

function onerror
 if err.number<> 0  then
  MsgBox "Ошибка # " & CStr(Err.Number) & " " & Err.Description
  err.clear
  onerror= 1 
  exit function
 end if
 onerror= 0 
end function