Private Sub GetSqlServer() Dim oSQLServerDMOApp As Object Dim i As Integer Dim namX As Object On Error Resume Next Set oSQLServerDMOApp = CreateObject("SQLDMO.Application") Set namX = oSQLServerDMOApp.ListAvailableSQLServers For i = 1 To namX.Count cmbServer.AddItem namX.Item(i) Next cmbServer.ListIndex = 0End Sub
Dim oSQLServerDMOApp As Object
Dim i As Integer
Dim namX As Object
On Error Resume Next
Set oSQLServerDMOApp = CreateObject("SQLDMO.Application")
Set namX = oSQLServerDMOApp.ListAvailableSQLServers
For i = 1 To namX.Count
cmbServer.AddItem namX.Item(i)
Next
cmbServer.ListIndex = 0End Sub