Вариант 1.
set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=cn
cmd.CommandText="exec SP_ ?, ?, ? OUT" 'Команда запуска ХП со знаками вопросов вместо значений параметров
cmd.CommandType = adCmdText 'Тип команды - произвольная команда
cmd.Parameters.Append cmd.CreateParameter("frm", adInteger, adParamInput, ,2) 'имена параметров совершенно произвольные
cmd.Parameters.Append cmd.CreateParameter("pg", adInteger, adParamInput, ,1)
cmd.Parameters.Append cmd.CreateParameter("rmpg", adVarChar, adParamOutput, 50)
cmd.Execute 'Выполнили команду
SomeVar = cmd.Parameters("rmpg") 'Получили значение параметра

Вариант 2.
set cmd=Server.CreateObject("ADODB.Command")
cmd.ActiveConnection=cn
cmd.CommandText="SP_" 'Только имя хранимой процедуры, больше ничего!
cmd.CommandType = adCmdStoredProc 'Тип команды - выполнение хранимой процедуры с заданным именем
cmd.Parameters.Append cmd.CreateParameter("@Param1", adInteger, adParamInput, ,2) 'Имена параметров должны быть с собакой и точно соответствовать именам параметров, объявленным в хранимой процедуре
cmd.Parameters.Append cmd.CreateParameter("@Param2", adInteger, adParamInput, ,1)
cmd.Parameters.Append cmd.CreateParameter("@Param3", adVarChar, adParamOutput, 50)
cmd.Execute 'Выполнили команду
SomeVar = cmd.Parameters("@Param3") 'Получили значение параметра

Первый вариант я сам проверял на практике на VBA Access-2000. Нормально работает. Только не надо забывать указать правильно направление передачи в свойствах параметра и в строке вызова ХП возле этого параметра не забыть слово OUT. Это решение нашел в допотопные времена, когда еще не было никакой литературы - экспериментальным путем. Сообщение об этом решении см. подробнее на сайте http://nsa.chat.ru/know.html в разделе "маленькие секреты".

Узрел небольшую ошибочку в обоих примерах. Не знаю, правда, насколько она существенная. Вместо adParamOutput тужно указывать adParamInpitOutput.