Private Sub Form_Load()
    Me.性别.LimitToList = False        '设置组合框的值不限于列表，以屏蔽系统提示信息
End Sub

Private Sub 性别_AfterUpdate()
    If Not (Me.性别 = "男" or Me.性别 = "女") Then
       MsgBox "请选择正确的数据。", , "系统提示！"  '自定义的提示信息
        Me.性别 = Null
    End If

End Sub

点击下载此附件

根据轻风老师与麦田老师回复，我将文章改成了示例，集合了两种方法,大家看一下。