У меня не работает... :(
Только имена серверов. Без инстансов...

Public Function GetSQLServersList(contrSQLList As Object) As String
Const ODBC_ERR_MSG = "Error to call ODBC. Please install vertion of MDAC"

Dim retCode As Integer
Dim hDbc As Long
Dim hEnv As Long
Dim strCon As String
Dim strOutCon As String
Dim intConLenOut As Integer
Dim lngPz1 As Long
Dim lngPz2 As Long
Dim names() As String
Dim intI As Integer
strCon = "DRIVER={SQL Server};"
strOutCon = Space$(10000)
retCode = SQLAllocEnv(hEnv)
If retCode <> SQL_SUCCESS And retCode <> SQL_SUCCESS_WITH_INFO Then
MsgBox ODBC_ERR_MSG
Exit Function
End If
retCode = SQLAllocHandle(SQL_HANDLE_DBC, hEnv, hDbc)
If retCode <> SQL_SUCCESS And retCode <> SQL_SUCCESS_WITH_INFO Then
MsgBox ODBC_ERR_MSG
Exit Function
End If
retCode = SQLBrowseConnect(hDbc, strCon, Len(strCon), strOutCon, Len(strOutCon) + 2, intConLenOut)
strOutCon = Left$(strOutCon, intConLenOut)
lngPz1 = InStr(strOutCon, "Server={")
If lngPz1 > 0 Then
lngPz1 = lngPz1 + 8
lngPz2 = InStr(strOutCon, "}")
If lngPz2 > lngPz1 Then
GetSQLServersList = Mid$(strOutCon, lngPz1, lngPz2 - lngPz1)
End If
End If
retCode = SQLDisconnect(hDbc)
retCode = SQLFreeConnect(hDbc)
retCode = SQLFreeEnv(hEnv)
names = Split(GetSQLServersList, ",")
For intI = 0 To UBound(names) - 1
contrSQLList.AddItem names(intI)
Next
End Function

2.8
Может ли это быть связано с какими-то сетевыми сетингами? Потому что раньше я получала инстансы... А потом "вдруг" перестала