Sub SQLOtchet(str1 As Variant, tip As Variant)
Dim str As Variant

'Dim DSN_str As String

'если есть подключение к базе
'тогда DSN_str = INSQLSERVER
'иначе DSN_str = INSQLSERVER2





If tip = 1 Then

Worksheets("Часовые").Visible = True
Worksheets("Часовые").Range("A1:IV500").ClearContents

str = "exec Get_Otchet_1hourAVG_OF " + str1

With Worksheets("Часовые").QueryTables.Add(Connection:= _
"ODBC;DSN=+DSN_str+;UID=***;PWD=***;APP=Microsoft Office 2003;DATABASE=Runtime" _
, Destination:=Worksheets("Часовые").Range("A1"))
.CommandText = Array(str)
.Name = "Запрос из INSQLSERVER_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End If

Есть подключение к базе в Excel. Хотим подключаться к второму серверу если первй выключен.
В ' коментариях условие для проверки выбора DSN драйвера (серевера). Подскажите как это написать на VBA Excel
Заранее сбасибо.

Большое спасибо за ответ. Почти близок к разгадке подскажите как мне написать в то что в скобках [есть подключение к базе], не нашел в инете HELPa


Sub SQLOtchet(str1 As Variant, tip As Variant)
Dim str As Variant
Dim DSN_str As String

If [есть подключение к базе]
Then DSN_str = "ODBC;DSN=INSQLSERVER;UID=***;PWD=***;APP=Microsoft Office 2003;DATABASE=Runtime"
Else DSN_str = "ODBC;DSN=INSQLSERVER2;UID=***;PWD=***;APP=Microsoft Office 2003;DATABASE=Runtime"

With Worksheets("Часовые").QueryTables.Add(Connection:= DSN_str _
, Destination:=Worksheets("Часовые").Range("A1"))
.CommandText = Array(str)
.Name = "Запрос из INSQLSERVER_1"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = False
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertEntireRows
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = False
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With