Query iz Oracle baze u Excel, kako povuci pswd iz nekog fajla

[CoyoteKG]

To u principu znam.

Ovim prilikom izvrsavanja odredjenog upita povlacim iz nekog nebitnog tekstualnog fajla password

Set OraSession = CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase = OraSession.OpenDatabase("baza.net", "korisnik/" & pswd, 0&)
Set EmpDynaset = OraDatabase.CreateDynaset(Sql, 0&)

Function pwd(strLine)
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    Set objDictionary = CreateObject("Scripting.Dictionary")
     
    Const ForReading = 1
     
    Set objFile = objFSO.OpenTextFile("D:\IT\share.dvr", ForReading)
    i = 0
    Do Until objFile.AtEndOfStream
        strNextLine = objFile.Readline
        If strNextLine <> "" Then
        objDictionary.Add i, strNextLine
        End If
        i = i + 1
        Loop
        objFile.Close
         
        'Then you can iterate it like this
         
        For Each strLine In objDictionary.Items
        'WScript.Echo strLine
        'MsgBox (strLine)
        pwd = strLine
        Next
End Function

Problem mi je kod nekog upita koji sam danas zavrsio, ako u VB napisem upit, kao sto inace radim, presporo mi ispisuje rezultate.

Ukoliko isti taj upit ubacim pomocu "Import external data" upit mi se izvrsava sasvim normalno.
Ali mi je onda problem pass. Mogu da ga zapamtim taj put, ali posle mesec dana mi je komplikacija na svim izvestajima da ponovo menjam passworde i zato mi je lakse da mi taj podatak povlaci iz nekog txt fajla.

Posto sam laik, vrlo malo znam, tj. samo znam da se snadjem da prepravim vec neke izvestaje, izguglam malo i slicno...
Da li postoji mogucnost ovde negde da se ubaci taj tag koji ce prilikom refresovanja kad zatrazi bazu i pass, da sam unese to iz nekog fajla?

Private Sub Workbook_Open()
Sheets("Old").Select
Range("A2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Application.DisplayAlerts = False
Sheets("New").Select
Range("A2").Select
    Selection.QueryTable.Refresh BackgroundQuery:=False
    Application.DisplayAlerts = False
ActiveWorkbook.Save
Sheets.Copy
ActiveWorkbook.SaveAs Filename:="D:\IT\DNEVNI.xls", FileFormat:= _
        xlNormal, Password:="", WriteResPassword:="", ReadOnlyRecommended:=False _
        , CreateBackup:=False
Application.DisplayAlerts = True
ActiveWindow.Close True
Application.Quit
End Sub