Dim oAdoConnect

Set oAdoConnect = CreateObject("ADODB.Connection")

' Задаем строку соединения.
strConnectionString = "Provider=SQLOLEDB.1;data source=MyServerName;initial catalog=MyDBName;Trusted_Connection=Yes;"

oAdoConnect.ConnectionString = strConnectionString
oAdoConnect.Open()


strSQL = "Declare @myConst as varchar(50) Exec sp_MyStoreProcedure 'Param1','Param2', @myConst  OUT Select myConst = @myConst"

Set oAdoRecordSet = oAdoConnect.Execute(strSQL)

MsgBox "Получаем: " + Trim( oAdoRecordSet.Fields("myConst").Value