Dim CMD As New ADODB.Command
Dim con as adodb.connection
con.open  "строка подключения см. ниже" 


CMD.ActiveConnection = Con  'может быть вариант c set (была така хрень) '
CMD.CommandText =  "Имя_Хранимки" 
CMD.CommandType = adCmdStoredProc
CMD.Parameters.Append CMD.CreateParameter( "@pram0" , adInteger, adParamInputOutput) 'если нужны параметры'
CMD.Parameters( 0 ) = .... 'присваиваешь значения  входным параметрам '
CMD.Execute
... = CMD.Parameters( 0 ) 'возвращаемый параметр можно присвоить переменной'
Set CMD = Nothing
con.close
set con = nothing