Provjera duplikata u više na prema više

Code:

Private Sub CmdReload_Click()
Dim MyDB As Object
Dim intLoop As Integer

    Dim frm As Form, ctl As Control
    Dim varItm As Variant, i As Integer
    Dim Rs As DAO.Recordset
    Dim Rss As DAO.Recordset
    Dim sUser As String
    Dim FieldList As Integer
    Dim qry As Object
     sUser = strLoginName  'ovo je globalna varijabla kojom putem forme vodim brigu o korisniku koji se je ulogirao za Audit Trail
    Dim intCount As Integer
    Dim qdf1 As DAO.QueryDef
    
    Set MyDB = CurrentDb()
     Set frm = Screen.ActiveForm
       Set Rss = MyDB.OpenRecordset("T-tvrtke-djelatnosti", DB_OPEN_DYNASET, dbSeeChanges) 'tablica u koju inače idu novi unosi ako zapis ne postoji
 
    For intCount = Me.CustomerList.ListCount - 1 To 0 Step -1    'tvrtka se unosi jedna po jedna iz listboxa
    
    Set qdf1 = MyDB.QueryDefs("qryusporedba")  'query koji samo provjerava da li ti odnosi postoje u tablici T-tvrtke-djelatnosti
    
        qdf1.Parameters("@CustomerList") = Me.CustomerList.Column(0, intCount)  'provjerava tvrtku
        qdf1.Parameters("@djelatnosti") = Me.djelatnosti   'provjerava djelatnost, tj. da li su ova dva polja u odnosu.
        
        Set Rs = qdf1.OpenRecordset
        
        If Rs.RecordCount > 0 Then  'ukoliko postoji zapis
        
        Me.Undo     ' napravi undo
        
        Else 'ukoliko zapis ne postoji dodaj novi u tablicu
              
        Rss.AddNew
        
        Rss!Idtvrtka = Me.CustomerList.Column(0, intCount)
        
        Rss!Naziv = Me.djelatnosti
        Rss!AuditTrail = frm!tbAuditTrail & "Novi zapis je dodan " & Now & " od strane " & sUser & ";"  'iz ne znam kojeg razloga za ova zadnja tri polja mi prijavljuje grešku
        Rss!Datum = Now
        Rss!Unio = frm!tbUnio & sUser
        Rss.Update
    
        End If
        
        
        Next intCount

        End Sub