Устранение ошибки об уникальности в запросе на добавление

Sub addRecord()
    Dim db As DAO.Database
    Set db = CurrentDb
    db.Execute "upgrade"
    db.Execute "AddTablePick"
    db.Execute "AddTablePick2"
    msgbox "Picking downloaded \ Пикинг прогружен"
End Sub

Public Sub addRecord()
    Dim db As dao.Database, engine As Object
    Set engine = CreateObject("dao.dbengine.120")
    Set db = engine.OpenDatabase("C:\путь\Pick-Done — копия.accdb")
    db.Execute "upgrade"
    db.Execute "AddTablePick"
    db.Execute "AddTablePick2"
    MsgBox "Picking downloaded \ Пикинг прогружен"
End Sub

addRecord

Function Upgarde_Done()
On Error GoTo Upgarde_Done_Err
 
    DoCmd.DeleteObject acTable, "Pickfile"
    DoCmd.TransferText acImportDelim, "Pickfile - спецификация импорта", "Pickfile", "C:\Users\ololosha\Desktop\pickfile.txt", False, ""
    DoCmd.OpenQuery "upgrade", acViewNormal, acEdit
    DoCmd.OpenQuery "AddTablePick", acViewNormal, acEdit
    DoCmd.SetWarnings False
    DoCmd.OpenQuery "AddTablePick2", acViewNormal, acAdd
    Beep
    MsgBox "Picking downloaded \ Пикинг прогружен", vbInformation, "Инфо"
 
 
Upgarde_Done_Exit:
    Exit Function
 
Upgarde_Done_Err:
    MsgBox Error$
    Resume Upgarde_Done_Exit
 
End Function

On error Resume Next 'Обход ошибки на случай отсутствия таблицы
Currentdb.execute "drop table pickfile_ОшибкиИмпорта"
Currentdb.execute "drop table pickfile_ОшибкиИмпорта1"
On error Goto 0      'Возврат к обычной реакции на ошибки

Private Sub PickD_Click()
On Error GoTo Upgarde_Done_Err
 
    Dim db As dao.Database, engine As Object
    Set engine = CreateObject("dao.dbengine.120")
    Set db = engine.OpenDatabase("D:\NEOVIA\OUTBOUND\SHIFT LEADERS\Pick-Done.accdb")
    DoCmd.DeleteObject acTable, "Pickfile"
    DoCmd.TransferText acImportDelim, "Pickfile - ñïåöèôèêàöèÿ èìïîðòà", "Pickfile", "C:\Users\runovnetpc01\Desktop\pickfile.txt", False, ""
    db.Execute "upgrade"
    db.Execute "AddTablePick"
    db.Execute "AddTablePick2"
    MsgBox "Picking downloaded \ Ïèêèíã ïðîãðóæåí", vbInformation, "Èíôî"
 
 
Upgarde_Done_Exit:
    Exit Sub
 
Upgarde_Done_Err:
    MsgBox Error$
    Resume Upgarde_Done_Exit
 
End Sub

Private Sub PickD_Click()
On Error GoTo Upgarde_Done_Err
 
    Dim db As dao.Database, engine As Object, path
    Dim app As Object
    path="D:\NEOVIA\OUTBOUND\SHIFT LEADERS\Pick-Done.accdb"
 
    'Открыть приложение Access и выполнить действия средствами Access
    Set app=Createobject"Access.Application")
    app.OpenCurrentDatabase path
    app.DoCmd.DeleteObject acTable, "Pickfile"
    app.DoCmd.TransferText acImportDelim, "PickfilePickfile - спецификация импорта", "Pickfile", _ 
        "C:\Users\runovnetpc01\Desktop\pickfile.txt", False, ""
    app.Quit
 
    'Средствами DAO выполнить запросы
    Set engine = CreateObject("dao.dbengine.120")
    Set db = engine.OpenDatabase(path)
 
    db.Execute "upgrade"
    db.Execute "AddTablePick"
    db.Execute "AddTablePick2"
    MsgBox "Picking downloaded \ Пикинг прогружен", vbInformation, "Г€Г*ГґГ®"
 
 
Upgarde_Done_Exit:
    Exit Sub
 
Upgarde_Done_Err:
    MsgBox Error$
    Resume Upgarde_Done_Exit
 
End Sub