DTS - connection.password kan ikke sættes

Ups - jeg glemte koden. Den kommer her:

    Dim objConnection As DTS.Connection2
   
    Set objConnection = objPackage.Connections.New(strOLEDBProgID)

    With objConnection
   
        \'## SET COMMON PROPERTIES
        .ID = intConnectionID
        .Name = strConnectionName
   
        Select Case strOLEDBProgID
       
        Case \"SQLOLEDB\"
            \'## CONNECTION IS A MS SQL SERVER DB
            .Password = \"abc\"
            .DataSource = strDataSource        \'when sql-server DataSource is the server name
            .Catalog = strCatalog              \'when sql-server catalog is the database name
            If blnNTAuthentication Then .UseTrustedConnection = True
            .Password = \"abc\"
            .UserID = strUserID
            .Password = strPassword \'selv om strPassWord indeholder valid streng, så vedbliver objConnection.Password med at være = \"\" !!!

           

Hvad sker der, hvis du sætter UseTrustedConnection = False??

Jeg har fundet svaret andetsteds - password er WRITE-ONLY dvs. man kan godt skrive til property\'en, men ikke efterfølgende læse.

Lukker du så ikke spørgsmålet??