首先需要引用SQLDMO。方法:在“工具”-“引用”中引用 Microsoft SQLDMO object Library。 代码: Private Sub Combo1_DropDown() Dim svr As New SQLDMO.SQLServer Dim i As Integer If Combo1.ListCount > 0 Then Dim Dn As String Dn = Trim(Combo2.Text) ''''combo1是列数据库名的combo控件 Combo1.Clear Combo1.Text = Dn SendKeys "{END}" ''''以上代码实现下拉时原来内容不被清空 Else End If svr.Connect "ServerName", "UerID", "PWD" ''''3个引号内分别为服务器名,用户名,密码 For i = 1 To svr.Databases.Count Combo1.AddItem svr.Databases(i).Name Next End Sub