增量查询？

Question

我想实现的功能：
一个 datacombo 控件作为输入框，用 adodc 控件连接 access 数据库，当输入内容时，与输入内容相似的内容填充 datacombo 控件。
遇到的问题：
datacombo 控件的下拉列表不能自动展开，需要点击右边的黑三角。
请教各位大侠：
有没有控制 datacombo 控件自动展开下拉列表的属性或方法。
或者有没有其它的控件可以代替 datacombo 控件实现这个功能,最好能详细说明？
谢谢各位

Answer 1

Private Sub Combo1_Change()
    SendKeys "%{Down}"
End Sub

Answer 2

for i=0 to datacombo.listCount -1
     if datacombo.Text Like "*" & trim(Rs.File(0)) & "*" then
         exit for
     end if
next i
if datacombo.ListIndex>=datacombo.Listcount then
     datacombo.ListIndex=-1 
end if

Answer 3

SendKeys "%{Down}" 虽然可以实现自动展开下拉列表的问题，但同时使得用下箭头进行选择出现问题，它总是自动选择列表中的第一项。请问 cuizm(射天狼) 兄有什么解决办法吗？最好能象 sujiang(心愿) 兄一样给出代码，多谢!
sujiang(心愿) 兄的代码中，datacombo 控件中没有找到 listcount 属性，请问你是不是写错了？