Помогите идиоту

[Jil]

Записан макрос, в котором идет запрос на SQL в БД, причем не один а много, когда макрос запущен он просит вводить пароль столько раз сколько запросов. Как бы пароль забабахать в переменную и указать ее в каждом запросе?
примерно следующее:

Sub Макрос4()
'
' Макрос4 Макрос
'

'

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC для Oracle};UID=user;PWD = passwd; SERVER=123;", _
Destination:=Range("C4"))
.CommandText = Array( _
"select ....)" _
)
.NAME = "Запрос"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DRIVER={Microsoft ODBC для Oracle};UID=user;PWD = passwd; SERVER=123;", _
Destination:=Range("C4"))
.CommandText = Array( _
"select ....)" _
)
.NAME = "Запрос"
.FieldNames = True
.RowNumbers = False
.FillAdjacentFormulas = False
.PreserveFormatting = True
.RefreshOnFileOpen = False
.BackgroundQuery = True
.RefreshStyle = xlInsertDeleteCells
.SavePassword = True
.SaveData = True
.AdjustColumnWidth = True
.RefreshPeriod = 0
.PreserveColumnInfo = True
.Refresh BackgroundQuery:=False
End With
End Sub