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
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