VB如何实现DataCombo控件输入功能失效,只能在下拉菜单中选择。

把Combo1的Style属性设置为 2

Private Sub DataCombo1_Change()
   SQL = "SELECT * FROM 项目表 where   项目名称 like " & Chr(34) + "%" + Trim$(DataCombo1.Text) + "%" + Chr(34)
    = adCmdunknow  
        Adodc3.RecordSource = SQL
        Adodc3.Refresh
       Set DataCombo1.RowSource = Adodc3
       DataCombo1.ListField = "项目名称"
End Sub
以上是我正在使用的语句

Private Sub DataCombo1_KeyPress(KeyAscii As Integer)
  KeyAscii = 0  '禁止一切键输入
End Sub

Private Sub DataCombo1_MouseDown(Button As Integer, Shift As Integer, x As Single, y As Single)
  If Button = 2 Then Clipboard.Clear  '禁止粘贴剪贴板内容
End Sub
'在DataCombo事件KeyPress和MouseDown加入上述代码后，就基本上无法人为改变DataCombo中内容了，只有选择其下拉内容