ok I'm playing with this and it isn't working I'm not that far into learning VB yet so if you could offer some help it is greatly appreciated.
Private Sub Form_Error(DataErr As Integer, Response As Integer)
Const conErrDuplicateKey = 3022
Select Case DataErr
Case conErrDuplicateKey...