Sub CreateDBF()
Dim dbfconn As ADODB.Connection
Dim dbfCmd As ADODB.Command
Dim dbfRS As ADODB.Recordset
Dim k As Long
Dim N As Long

    Dim pDBF As String
    pDBF = "C:\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") = "C:\" 'pDBF 'pathToArc
        .Open
    End With
    DoEvents
    Set dbfCmd = New ADODB.Command
    With dbfCmd
        .ActiveConnection = dbfconn
        .CommandTimeout =  10 

        .CommandText = "CREATE TABLE PAYORDER (" & _
                    " DateDoc datetime, " & _
                    " DocNumber char(24), " & _
                    " OrgName char(100), " & _
                    " OrdINN char(20), " & _
                    " DTAccountC char(30), " & _
                    " SCDT1_Kind char(50), " & " SCDT1_Code char(100), " & " SCDT1_Name char(100), " & _
                    " SCDT2_Kind char(50), " & " SCDT2_Code char(100), " & " SCDT2_Name char(100), " & _
                    " SCDT3_Kind char(50), " & " SCDT3_Code char(100), " & " SCDT3_Name char(100), " & _
                    " CTAccountC char(30), " & _
                    " SCCT1_Kind char(50), " & " SCCT1_Code char(100), " & " SCCT1_Name char(100), " & _
                    " SCCT2_Kind char(50), " & " SCCT2_Code char(100), " & " SCCT2_Name char(100), " & _
                    " SCCT3_Kind char(50), " & " SCCT3_Code char(100), " & " SCCT3_Name char(100), " & _
                    " Summa numeric(17,2), " & " NDS numeric(17,2)  , " & _
                    " OpID numeric(10), " & " OpName char(100), " & " CassaID char(24), " & _
                    " CassaName char(100), " & " TypeID numeric(2), " & " TypeName char(100), " & _
                    " Comment char(254) )"
        .Execute            ' создать таблицу
    End With
    Set dbfRS = New ADODB.Recordset
    Set dbfRS.ActiveConnection = dbfconn
    
    With dbfRS
        .CursorLocation = adUseClient
        .CursorType = adOpenDynamic
        .LockType = adLockOptimistic
        '.Sort = ""
        .Open "SELECT * FROM PAYORDER"
        '.Sort = ""
        
        ' записать файл информацию о реализациях
        For k =  0  To UBound(RealizeData) -  1 
            .AddNew
            !DateDoc = RealizeData(k).DateDoc
            !DocNumber = "Номер документа"
            !DTAccountC = RealizeData(k).DTAccountCode
            !CassaID = RealizeData(k).CassaID
            !CassaName = RealizeData(k).CassaName
            !Comment = "Пробная строка"
            !CTAccountC = RealizeData(k).CTAccountCode
            !NDS =  0 . 18 
            !OpID = RealizeData(k).OpID
            !OpName = RealizeData(k).OpName
            !OrdINN = OrgINN
            !OrgName = Organization
            !SCDT1_Code = RealizeData(k).SCDT1_Code
            !SCDT1_Kind = RealizeData(k).SCDT1_Kind
            !SCDT1_Name = RealizeData(k).SCDT1_Name
            !SCDT2_Code = RealizeData(k).SCDT2_Code
            !SCDT2_Kind = RealizeData(k).SCDT2_Kind
            !SCDT2_Name = RealizeData(k).SCDT2_Name
            !SCDT3_Code = RealizeData(k).SCDT3_Code
            !SCDT3_Kind = RealizeData(k).SCDT3_Kind
            !SCDT3_Name = RealizeData(k).SCDT3_Name
            !SCCT1_Code = RealizeData(k).SCCT1_Code
            !SCCT1_Kind = RealizeData(k).SCCT1_Kind
            !SCCT1_Name = RealizeData(k).SCCT1_Name
            !SCCT2_Code = RealizeData(k).SCCT2_Code
            !SCCT2_Kind = RealizeData(k).SCCT2_Kind
            !SCCT2_Name = RealizeData(k).SCCT2_Name
            !SCCT3_Code = RealizeData(k).SCCT3_Code
            !SCCT3_Kind = RealizeData(k).SCCT3_Kind
            !SCCT3_Name = RealizeData(k).SCCT3_Name
            !Summa = RealizeData(k).Summa
            !TypeID = RealizeData(k).TypeID
            !TypeName = RealizeData(k).TypeName
           .Update ' ВОТ ТУТА ВИСНЕТ!!!
Next k
        
    DoEvents
    
    End With

End Sub