Private Sub Combo1_DropDown()
Combo1.Tag = Combo1.Text
Dim Rs As New adodb.Recordset
Dim Con As New adodb.connection
Con.Open "yourDNS"
Rs.Open "你的查询语句", Con
Do While Not Rs.EOF
Combo1.AddItem Rs(0)
Rs.MoveNext
Loop
Rs.Close
Con.Close
Set Rs = Nothing
Set Con = Nothing
Combo1.Text = Combo1.Tag
End Sub