Add password to querytable command

[Richard]

How can I reformat following command to add the password, so I don't have to
type password every time I run macro

With ActiveSheet.QueryTables.Add(Connection:= _
"ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world;",
Destination:=Range("C4"))
.CommandText = Array

 

[NickHK]

Richard,
I find the easiest way to create connection strings is :
- create a new text file somewhere suitable
- rename it "ConnStr.udl"
- double click
- follow the step filling the relevant info
- OK
- Open the file a text editor
- Copy the text

NickHK

 

[Richard]

Brilliant. I would never have though of that in a million years.

However, where do I put this new text into my old ActiveSheet.QueryTables
command?
I tried replacing the part in between the quotes
(i.e. ODBC;DSN=CEFMS;UID=u4rf9rmd;SERVER=cefms.world
but get this error:
Compile error: Expected: list separator or )
and it highlights my password. Could this error be tied to the fact that my
password contaings an underscore "_" similar to the symbol for a continuation
line in VBS?