Подправить макрос для импорта из excel в access

Sub fromExcelToAccess()
 
    Dim dbe As Object 'DAO.DBEngine
    Dim db  As Object 'DAO.Database
    Dim rst As Object 'DAO.Recordset
    Dim i As Long
        
    Set dbe = CreateObject("DAO.DBEngine.120")
    Set db = dbe.OpenDatabase("C:\Test.accdb")
    Set rst = db.TableDefs("Таблица1").OpenRecordset
        
    For i = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row - 1
            rst.AddNew
            rst("Поле1").Value = Range("a" & 1 + i).Value
            rst("Поле2").Value = Range("b" & 1 + i).Value
            rst("Поле3").Value = Range("c" & 1 + i).Value
        rst.Update
    Next
        
End Sub

 Set rst = db.TableDefs("Таблица1").OpenRecordset
 
 For i = 1 To Range("A" & Cells.Rows.Count).End(xlUp).Row - 1
   rst.findfirst "Поле1='" & Range("a" & 1 + i).Value & "' And Поле2='" & Range("b" & 1 + i).Value & "'"
   if rst.nomatch then
      rst.AddNew
      rst("Поле1").Value = Range("a" & 1 + i).Value
      rst("Поле2").Value = Range("b" & 1 + i).Value
      rst("Поле3").Value = Range("c" & 1 + i).Value
   else
      rst.edit
      rst("Поле3").Value = Range("c" & 1 + i).Value
   end if
   rst.update
 Next

Set rst = db.OpenRecordset("select * from Таблица1", 2)  'dbopendynaset