背景：
在修改数据时，像性别班级之类的选择，只能从列表框中修改，不能自己输入，为了防止自己输入将combox控件的style属性变成 2-dropdown list 
这个就好像将combox控件变成了下拉式列表。不能输入，但是代码中需要在combox控件中显示文本，就好像下面这个代码
Public Sub viewData()
txtSID.Text = mrc.Fields(0)
txtName.Text = mrc.Fields(1)
comboSex.Text = mrc.Fields(2)
DTPickerBorn.Value = mrc.Fields(3)
comboClassno.Text = mrc.Fields(4)
txtTel.Text = mrc.Fields(5)
DTPickerRu.Value = Format(mrc.Fields(6), "YYYY-MM-DD")
txtAddress.Text = mrc.Fields(7)
txtComment.Text = mrc.Fields(8)
End Sub
这个时候就开始报错了
这个时候由于我们需要在combox控件上显示数据，所以我们需要类似于文本框，因此我们把style的属性变成0-Dropdown combo，这样就可以更改了，但是我们又不能在修改时让他手动输入数据所以我们通过keypress事件来限制它的输入
Private Sub comboCoursetype_KeyPress(KeyAscii As Integer)
KeyAscii = 0
End Sub
通过添加这个就可以限制任意字符的输入
