自定义错误信息

一个子窗体中的数据有一个不能为空，自定义错误信息怎么写代码呢

Private Sub Form_Error(DataErr As Integer, Response As Integer)
    Const conDuplicateKey = 3022
    Dim strMsg As String
    If DataErr = conDuplicateKey Then
        Response = acDataErrContinue
        strMsg = "商品名称不允许重复，" _
               & "请重新输入商品名称！"
               Me.商品名称.SetFocus
        MsgBox strMsg, vbCritical, "提示"
    End If
End Sub
这是不能重复的代码，那不能为空如何写呢