想实现BOMBOX输入后自动下拉模糊查询

Question

Private Sub Combo1_Change()
   Dim rs As Recordset   Dim strSql As String
        Set conn = New ADODB.Connection
        conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path + "\数据库.mdb;User ID=; Jet OLEDB:database Password = tcd2002"
Set rs = New ADODB.Recordset
strSql = "select * from ProductRecord where 字段 like '%" & Combo1.Text & "%'"
rs.Open strSql, conn, adOpenStatic, adLockOptimistic
Combo1.Clear
Do While Not rs.EOF
Combo1.AddItem rs.Fields("字段"), False
rs.MoveNext
LoopEnd Sub
为什么这个不会自动下拉啊？哪位高手帮忙看看

Answer 1

不但不下拉 还输什么清除什么，Combo1.Clear 如果去掉了，就循环在 AddItem加内容

Answer 2

加一个文本框来做Private Sub Combo1_Click()
    Text1.Text = Combo1.Text
End SubPrivate Sub Text1_Change()
    Dim i As Integer
    
    Combo1.Clear
    
    For i = 1 To 10
        Combo1.AddItem i
    Next i
End Sub

Answer 3

也可以用text和listPrivate Sub Form_Load()
    List1.Visible = False
End SubPrivate Sub List1_Click()
    Text1 = List1.List(List1.ListIndex)
    List1.Visible = False
End SubPrivate Sub Text1_Change()
    Dim i As Integer
    
    List1.Clear
    
    For i = 1 To 10
        List1.AddItem i
    Next i
    
    List1.Visible = True
End Sub