为什么我的 ComboBox 控件无法触发 change() 事件

Private Sub Combo1_change()
msgbox "发生了改变"
End Sub
我无论怎么改变它的内容，msgbox 就是没有执行！这应该是 change() 事件没有发生吧?!

请各位哥们回答一下我这个菜鸟问题吧！

我的实际代码是这样的:
Private Sub Combo1_change()

 If Combo1.Text <> "" Then
Sql = "select * from ranban where kehuname ='" & Combo1.Text & "'"
Set rs = db.Execute(Sql)
If Not rs.EOF Or Not rs.BOF Then
List1.Clear
Do While Not rs.EOF
List1.AddItem rs("chanpinid")
rs.MoveNext
    Loop
Label11.Caption = "该分类有" & List1.ListCount & "条记录"
Else
Label11.Caption = "该分类还没有记录"
End If
rs.Close
Set rs = Nothing
End If

End Sub

我试了
Private Sub Combo1_change()
MsgBox "发生了改变"
End Sub
没有问题，
看看这两处“
If rs.BOF = False And rs.EOF = False Then
如果你的代码是源程序中的，信息提示命令应该是  MsgBox ， 不该是 msgbox      

我的源程序是 MsgBox 我测试的问题是 change() 事件没有触发

当你在框里输入字符或删除字符或更改字符时发生“change”事件，如果你是用鼠标选择就得用““click”事件。

既然用Combo1,就用鼠标选择

Private Sub Form_Load()
Combo1.AddItem "客户1"
Combo1.AddItem "客户2"
End Sub

Private Sub Combo1_Click()

谢谢4楼，我非常明白了！