VBA Code skipping lines??

[rblivewire]

I have this code that I use to trap a multinumber error and replace it
with one greater than the highest one:

Private Sub saveCloseButton_Click()
'On Error GoTo Err_saveCloseButton_Click
On Error GoTo Err_Form_Error


Response = IncrementField(DataErr)


If MsgBox("Are you sure you want to save and close this request?",
vbQuestion + vbYesNo) = vbYes Then
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, ,
acMenuVer70
DoCmd.Close


End If


'Exit_saveCloseButton_Click:
'Exit Sub


Exit_Form_Error:
Exit Sub


'Err_saveCloseButton_Click:
'MsgBox Err.Description
'Resume Exit_saveCloseButton_Click
' End If
Err_Form_Error:
MsgBox Err.Description
Resume Exit_Form_Error


End Sub


Function IncrementField(DataErr)
If DataErr = 3022 Then


Me![#] = (DMax("[#]", "Tool Tracking List") + 1)
IncrementField = acDataErrContinue
End If
End Function


When it gets to the function though it skips over:
Me![#] = (DMax("[#]", "Tool Tracking List") + 1)
IncrementField = acDataErrContinue


This is the main code I need it to run. Any reason why it skips over
this??