disable SQL password prompt and Auto input password

[specs]

Hi there,

how do i add in the password in this code? so that when i run this sql query in my macro it will stop prompting me for my password.

With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=data1;Description=data1;UID=user;;APP=Microsoft Office 2003;WSID=user;DATABASE=database1" ......

Thanks in advanced =D

 

[specs]

I found the solution. If any of you would have the same problem, hope this helps:

the solution is to add in Pwd="yourpassword" after the UID

With ActiveSheet.QueryTables.Add(Connection:= _
        "ODBC;DSN=database;Description=data;UID=user123;Pwd=1234...