引用Microsoft SQLDMO Object Library

     Private Sub Nsqlser_DropDown()

     If Nsqlser.ListCount > 0 Then Exit Sub

     Dim Server As SQLDMO.NameList ''''名字列表namelist

     Dim appDMO As New SQLDMO.Application ''''sqldmo应用

     Dim i As Integer

     Set Server = appDMO.ListAvailableSQLServers ''''得到所有的sql sever 列表

     For i = 1 To Server.Count

     Nsqlser.AddItem Server(i) ''''Nsqlser为下拉列表框

     Next

     End Sub