'Код на основе статьи:
'http://www.accent6.com.ua/kbase6/SQL/sql_dbf.htm#start
'Авторы А. Кухтин, А. Бутенко
'Доступ к DBF-файлам из SQL-Server
'   Создание свзяанного сервера (Linked Server)
'   Операции с DBF-файлами c помощью связанного сервера
'   Операции с DBF-файлами напрямую
'   Примеры работы с DBF-файлом


    Dim pDBF As String
    pDBF = pathToArc & "PAYORDER.dbf"
     If Len(Dir(pDBF)) >  0  Then
        Kill pDBF   'Я пересоздаю dbf каждый раз ЗАНОВО -
    End If          'это НЕ диктуется ADO!
   Set dbfConn = New ADODB.Connection
    With dbfConn
        .Provider = "Microsoft.Jet.OLEDB.4.0"
        .Properties("Extended Properties") = "dBase IV"
        .Properties("Data Source") = pathToArc
        .Open
    End With
    DoEvents
    Set dbfCmd = New ADODB.Command
    With dbfCmd
        .ActiveConnection = dbfConn
        .CommandTimeout =  10 

        .CommandText = "CREATE TABLE PAYORDER (" & _
                                    "SEQNO int," & _
                                    "PAYNO char(16)," & _
                                    "PAYDATE smalldatetime," & _
                                    "ORGNAME char(30)," & _
                                    "INN char(14)," & _
                                    "PAYBASE numeric(12,2)," & _
                                    "PAYNDS numeric(12,2)," & _
                                    "PAYSUMM numeric(12,2)," & _
                                    "PAYMENT char(8)," & _
                                    "QUITDATE smalldatetime," & _
                                    "INSERTED bit," & _
                                    "ERASED bit," & _
                                    "FILENAME char(128)" & _
                                    ")"
        .Execute            '
    End With
    Set dbfRS = New ADODB.Recordset
    Set dbfRS.ActiveConnection = dbfConn
    
    With dbfRS
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        .Open "SELECT * FROM PAYORDER"
        DoEvents
        For k = 1 To N
            .AddNew
            .Fields(0) = v(k).SeqNo
            .Fields(1) = v(k).PayNo
'    ************
            .Fields( 12 ) = v(i).FileName
        .Update
        Next k
    DoEvents

       .CommandText = "CREATE TABLE PAYORDER (" 

.Properties("Data Source") = pathToArc

.Open "SELECT * FROM PAYORDER"

        For k =  1  To N
            .AddNew
            .Fields( 0 ) = v(k).SeqNo
            .Fields( 1 ) = v(k).PayNo
'    ************
            .Fields( 12 ) = v(i).FileName
        .Update
        Next k