refresh Query table using own password for each username

Please help me. I have many query table using data source : ODBC and driver : Oracle. I want to refresh the table using own password for each username. How to add my macro for doing that?
It's my macro :

Sub refresh1() 
    With Sheets("Data").Range("B5") 
        .QueryTable.Refresh BackgroundQuery:=False 
    End With 
End Sub

thanks very much.