Как правильно в базу данных добавить данные из эксель файла

Dim FName, tblNameFile As String
Dim result, kvInNakl As Integer
 
Dim dbsNorthwind As DAO.DATABASE
Dim rstShippers As DAO.Recordset
 
    With Me.ПФНакладнаяТоварМесяца.Form.RecordsetClone
        If Not (.BOF And .EOF) Then
            .MoveLast
            kvInNakl = .RecordCount
        Else
            kvInNakl = 0
        End If
    End With
 
If kvInNakl <> 0 Then
    MsgBox "В данной накладной уже импортированы данные! Повторный импорт запрещен. Вы можете создать новую накладную.", vbDefaultButton1 + vbExclamation + vbOKOnly, "Импорт данных"
    Exit Sub
End If
 
If MsgBox("Удалить файл после импорта?", vbDefaultButton2 + vbYesNo + vbInformation, "Запрос на удаления файла импорта.") = vbYes Then
    Me.flgDelFile = True
Else
    Me.flgDelFile = False
End If
 
With Application.FileDialog(1)
   .Title = "Select file"
   .InitialFileName = "C:\" 'default path путь по умолчанию
   .AllowMultiSelect = False
   .Filters.Clear
   .Filters.Add "MS Excel", "*.xlsx, 1"
result = .Show
 
If result = 0 Then Exit Sub
 
     FName = Trim(.SelectedItems.Item(1)) 'Полный адрес к файлу с именем
         tblNameFile = Mid(FName, InStrRev(FName, "\") + 1) 'Имя файла
'         Me.Примечание = Replace(tblNameFile, ".xlsx", "")
End With
 
 
         Dim app As Object, wrk As Object
        Dim rst As DAO.Recordset
        Set rst = CurrentDb.OpenRecordset("select * from [tblТоварМесяца]")
        Set app = CreateObject("excel.application")
        Set wrk = app.workbooks.Open(FName)
        
        Dim stopName, trueName As String
        Dim o, i As Integer
        Dim art, price As Variant
        art = Null
        price = Null
        
        For i = 1 To 50 Step 1
        trueName = app.Range("b" & i)
        If trueName = "Номер заказа" Then
            Exit For
        End If
        Next i
        
        i = i + 1
        
        For o = i To 1000 Step 1
        trueName = app.Range("b" & o)
 
            If trueName = "" Or IsNull(trueName) Then
                Exit For
            Else
 
                  Set dbsNorthwind = CurrentDb
                  Set rstShippers = dbsNorthwind.OpenRecordset("qryНакладнаяНоваяСтрока")
                  
                  rstShippers.AddNew
                  rstShippers!КодНакладнаяМесяца = Me.КодНакладнойМесяца
                  rstShippers!НомерЗаказа = CDec(app.Range("b" & o))
                  rstShippers!НаименованиеТовараАлиБаБа = app.Range("e" & o)
                  rstShippers!КодТовараИзАлиБаБа = CDec(app.Range("d" & o))
                  
                  rstShippers!КоличествоТовараАлиБаБа = app.Range("g" & o)
                  
                  Dim i1 As Integer
                 i1 = CInt(Left(app.Range("k" & o), InStrRev(app.Range("k" & o), ".") - 1))
                 rstShippers!СуммаТовараАлиБаБа = CDbl(Left(app.Range("k" & o), InStrRev(app.Range("k" & o), ".") - 1))
                 rstShippers!СтоимостьТовараАлиБаБа = CDbl(Left(app.Range("k" & o), InStrRev(app.Range("k" & o), ".") - 1)) / app.Range("g" & o)
                    rstShippers.Update
 
            End If
        Next o
        
        app.Quit
 
Me.Refresh
 
MsgBox "Импорт завершён.", vbDefaultButton1 + vbInformation + vbOKOnly, "Информация"
 
If Me.flgDelFile = True Then
    Kill FName
    Me.flgDelFile = False
End If
 
 
Ex1:
    Exit Sub
Err1:
    Resume Ex1