'Алгоритм:
'1. Извлекаем ... № последней сохранённой накладной и инкрементируем его (NNNN).
'2. Копируем файл-шаблон prod_tpl.dbf в файл prod0000.dbf.
'3. Открываем пустую таблицу prod0000 для добавления.
'4. Добавляем в prod0000 записи с заполненными из накладной полями
'   Nomer,Vid_oper,Kod_tov,Vupis_d,Sklad,Cpr NdsPr
'5. Переименовываем файл prod0000.dbf в prodNNNN.dbf
'------------------------
Private Sub FillOrderFromGrid(ByVal PackNo As Integer)
Dim csPR0 As New ADODB.Connection
With csPR0
    .CursorLocation = adUseClient
    .Mode = adModeReadWrite
    .Provider = "MSDASQL"
    .Open "DSN=PROD0000;UID=sa;PWD=;"    '
End With
Dim rsPR0 As New ADODB.Recordset
With rsPR0
    .CursorLocation = adUseClient
    .CursorType = adOpenDynamic                 '
    .LockType = adLockBatchOptimistic
    .Open "SELECT * FROM PROD0000 ", csPR0       '
    .Filter = adFilterNone
    Dim i As Long, N As Long
    N = frmMain.wndEdit.Rows -  1    'это - сетка vsFlexGrid
    For i =  1  To N
        .AddNew
        .Fields("Nomer") = PackNo
        .Fields("Vid_oper") = "СЧЕТ_Ф"                              'flexcpVariantValue
        .Fields("Kod_tov") = frmMain.wndEdit.Cell(flexcpVariantValue, i,  0 ) 'скрытый код товара
' остальные поля убраны из листинга.... 
        .MoveNext
    Next i
    .UpdateBatch
    .Close
End With
csPR0.Close
End Sub