combobox 控件问题？？急！

Question

在COMBOBOX输入时怎样让COMBOBOX控件的下拉筐自动弹出呀？？DATACOMBO控件不用ADODC控件连接，用代码怎么样添加数据库中某一字段的值呀？？谢谢各位老大！！！

Answer 1

在COMBOBOX输入时怎样让COMBOBOX控件的下拉筐自动弹出呀？？
//Option ExplicitPrivate Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long
Private Const CB_SHOWDROPDOWN = &H14FPrivate Sub Combo1_KeyDown(KeyCode As Integer, Shift As Integer)
  SendMessage Me.Combo1.hwnd, CB_SHOWDROPDOWN, True, 0
End SubPrivate Sub Form_Load()
    With Me.Combo1
        .AddItem "111"
        .AddItem "22"
        .AddItem "333"
    End With
End Sub

Answer 2

Option Explicit
Public Rs As New ADODB.Recordset
Public Conn As New ADODB.ConnectionPrivate Sub Form_Load()
   Dim strconn As String
   
   strconn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sa;Initial Catalog=Northwind;Data Source=LocalHost"
   Conn.CursorLocation = adUseClient
   Conn.Open strconn
   
   If Rs.State = 1 Then Rs.Close
   Rs.Open "select * from customers", Conn, 3, 3
   
   Combo1.Clear
   
   Do While Not Rs.EOF
      Combo1.AddItem Trim(Rs(0))
      Rs.MoveNext
   Loop
End Sub