Private Sub cmdAddCompanyName_Click()
	On Error GoTo ErrorHandler

	... code to add company name

	Exit Sub

	ErrorHandler:
	Select Case Err.Number
	Case errNoDuplicates
		MsgBox "That company name already exists.", vbExclamation
	Case Else
		MsgBox "There was an unexpected error. " & Err.Description, _
			vbExclamation, "Error Number: " & Err.Number
	End Select
End Sub