En Access como crear un mensaje de error

[AlexC]

Esto es lo que estoy usando:

Private Sub SearchAcct_Click()

On Error GoTo Err_SearchAcct_Click

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "PO"
stLinkCriteria = "[Purchase]=" & "'" & Me![Acc] & "'"
DoCmd.Close acForm, "By_PO", acSaveNo
DoCmd.OpenForm stDocName, , , stLinkCriteria

Exit_SearchAcct_Click:

Exit Sub

Err_SearchAcct_Click:

MsgBox Err.Description
Resume Exit_SearchAcct_Click

End Sub

El numero de record es "Purchase"

Gracias por tu ayuda...