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
