Customising Error 3022 (1 Viewer)

Dim rst As DAO.Recordset
Dim varItm As Variant

Set rst = CurrentDb.OpenRecordset("tbl_assignSessions", dbOpenDynaset)

  
For Each varItm In List41.ItemsSelected
  With rst
    .AddNew
    ![ExamAssign] = [tbl_assignSessions Subform].[Form]![ExamAssign]
    ![Session] = List41.Column(3, varItm)
    ![Initials] = List41.Column(0, varItm)
    .Update
    If Err.Number = 3022 Then
    MsgBox "That combination already exists, try again"
    Else
        MsgBox Err.Num & " " & Err.Description
    
    End If
  End With
Next varItm

rst.Close
Set rst = Nothing
 Forms![tbl_Exams]![tbl_assignSessions Subform].Requery
End Sub

Private Sub ProcName()

On Error GoTo Err_Handler
 
'your code goes here
      
Exit_Handler:
    Exit Sub

Err_Handler:
    If Err.Number = 3022 Then
        MsgBox "That combination already exists, try again"
    Else
        MsgBox "Error " & Err.Number & " " & Err.Description
    End If
        
    Resume Exit_Handler

End Sub

  With rst
    [COLOR="DarkRed"]on error resume next[/COLOR]
    .AddNew
    ![ExamAssign] = [tbl_assignSessions Subform].[Form]![ExamAssign]
    ![Session] = List41.Column(3, varItm)
    ![Initials] = List41.Column(0, varItm)
    .Update
    [COLOR="Red"] if err>0 then[/COLOR]
         If Err.Number = 3022 Then
               MsgBox "That combination already exists, try again"
         Else
              MsgBox Err.Num & " " & Err.Description
        end if 
    [COLOR="red"]End If[/COLOR]
  End With