How to persist UID/PWD when setting PassThrough query .Connect?

[PeteCresswell]

I'm doing this:
---------------------------------------------------------
5200 Case "Query"
On Error Resume Next
Set curQD = thisDB.QueryDef s(!ObjectName)
curErr = Err
On Error GoTo reconnect_PACE_ err
5210 Select Case curErr
Case 0
5221 curQD.Connect = !ConnectionStri ng
5230 Case 9
5240 Case Else
5299 End Select
---------------------------------------------------------

Works fine until I shut down the app and re-open it; then the PWD and
UID
parms come up empty.

e.g.
Before:
ODBC;DRIVER=Ora cle ODBC Driver;UID=ABC; PWD=XYZ;TLO=O.. .....

After:
ODBC;DRIVER=Ora cle ODBC Driver;UID=;PWD =;TLO=O.......

I notice similar behaviour when updating .Connect in linked tables and
my workaround there was to delete the link and re-create it using
DoCmd.TransferD atabase - which somehow makes UID/PWD persist.

Do I have to rename the QueryDef, create a new one, copy the SQL, set
the .Connect, and delete the renamed one...or is there a workaround
when just updating .Connect?

[(Pete Cresswell)]

RE/

Works fine until I shut down the app and re-open it; then the PWD and
UID
parms come up empty.

I think this is some sort of RCI on my part.

Checked some other queries and the UID/PWD were still there.
--
PeteCresswell