为什么我的 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

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

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