Сам запрос
SQuery = "execute [CCMChMK].[dbo].[AnlPoDnm_ALL] '" + UnifPar_Rcd + "';"

 ActiveWorkbook.Connections.Add ConnNm, "", Array("OLEDB;" + ConnString), Array(SQuery), 2
       With ActiveWorkbook.Connections(ConnNm).OLEDBConnection
         .BackgroundQuery = True
         .CommandText = SQuery
         .CommandType = xlCmdSql
         .Connection = Array("OLEDB;" + ConnString)
         .RefreshOnFileOpen = False
         .SavePassword = True
         .SourceConnectionFile = ""
         .Refresh
       End With