'/* Открываем соединение */
Set dbfConn = CreateObject ("ADODB.Connection")
Call dbfConn.Open ({Provider=Microsoft.Jet.OLEDB.4.0;Data Source=} & filePath & {;Extended Properties=dBASE IV;User ID=Admin;Password=})
createMacro = {Create Table } & fileNameDBF &_
{ (f_name1 char(10),} &_
{ f_name2 date,} &_
{ f_name3 int)}
'/* Создаем новый DBF и задаем его колонки */
Call dbfConn.Execute (createMacro)
insertStr = {Insert into } & fileNameDBF2Write & { Values(} &_
{'} & Replace (Left (STRING_VALUE_STR, 10), "'", "''") & {', } &_
DATA_VALUE_STR & {, } &_
INT_VALUE_STR & {)}
Call dbfConn.Execute (insertStr)