Primero agrega la referencia SQL DMO a tu proyecto:
Public Function AvailableSQLServers() As String()
Dim sServers() As String
Dim iCtr As Integer
sServers = AvailableSQLServers
If sServers(0) = "" Then
MsgBox "No existen servidores SQL disponibles"
Else
For iCtr = 0 To UBound(sServers)
Debug.Print sServers(iCtr)
Next
End If
Dim oServer As New SQLDMO.Application
Dim oNameList As SQLDMO.NameList
Dim iElement As Integer
Dim sAns() As String
Dim lCtr As Long, lCount As Long
On Error GoTo ErrorHandler
ReDim sAns(0) As String
Set oNameList = oServer.ListAvailableSQLServers
With oNameList
lCount = .Count
If lCount > 0 Then
For lCtr = 1 To .Count
iElement = IIf(sAns(0) = "", 0, UBound(sAns) + 1)
ReDim Preserve sAns(iElement) As String
sAns(iElement) = oNameList.Item(lCtr)
Next
End If
End With
AvailableSQLServers = sAns
Exit Function
ErrorHandler:
'En caso de error no devuelve nada
ReDim sAns(0) As String
AvailableSQLServers = sAns
End Function
