Force ConnectionString

Sub testConnection()

    Dim strConName As String
    
    strConName = "MATLKSPRPSQD003 TestSecurityModel Model"

    'ActiveWorkbook.Connections("MATLKSPRPSQD003 TestSecurityModel Model").Name = "Benson_test"
    ActiveWorkbook.Connections("Benson_test").Name = strConName
    
    With ActiveWorkbook.Connections(strConName)
        .OLEDBConnection.Connection = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=TestSecurityModel;Data Source=MATLKSPRPSQD003;MDX Compatibility=1;Roles=HRSSC_T2_CRT_BENSON;Safety Options=2;MDX Missing Member Mode=Error"

    End With

End Sub


Sub testConnectionString()
    
    With ActiveWorkbook.Connections("MATLKSPRPSQD003 TestSecurityModel Model")
        .OLEDBConnection.Connection = "OLEDB;Provider=MSOLAP.5;Integrated Security=SSPI;Persist Security Info=True;Initial Catalog=TestSecurityModel;Data Source=MATLKSPRPSQD003;MDX Compatibility=1;Roles=HRSSC_T2_CRT_BENSON;Safety Options=2;MDX Missing Member Mode=Error"
    End With

End Sub