ALTER PROCEDURE "DBA"."test_ado_proc1"(OUT @p_out int)
BEGIN
    set @p_out= 10 ;
    select 'test1';    
END

CoInitialize(NULL);
//Соединение с БД. Мост ADODB-ODBC. Имеется настроенный источник testdb
_ConnectionPtr conn("ADODB.Connection");
_bstr_t connection_str="Provider='ASAProv';Data Source=testdb";
conn->Open(connection_str,"DBA", "***", adConnectUnspecified);

_CommandPtr sp("ADODB.Command");		
ParametersPtr params;
_ParameterPtr out_param;

//Установка имени ХП
sp->PutRefActiveConnection(conn);
sp->PutCommandText("test_ado_proc1");
sp->PutCommandType(adCmdStoredProc);
//Установка параметров ХП	
sp->GetParameters()->Refresh();
params=sp->GetParameters();	

//Запуск ХП	
_RecordsetPtr sp_rowset("ADODB.Recordset");
_variant_t vtRowsAffected;
sp_rowset=sp->Execute(&vtRowsAffected, &vtMissing, adCmdStoredProc);
std::cout << "rows affected: " << (double)vtRowsAffected << '\n';	
ado_show_rocordset(sp_rowset); //Вывод набора данных на экран
sp_rowset->Close();
	
//Получение OUT параметров ХП
_variant_t param_val;
out_param=params->GetItem("@p_out");
std::cout << "OUT Params:\n";
std::cout << "Name : " << (char*)( (_bstr_t)out_param->GetName()) << '\n';
param_val=out_param->GetValue();
std::cout << "Value: " << (int)param_val << '\n';

ALTER PROCEDURE "DBA"."test_ado_proc1"( INOUT @p_out int)
BEGIN
    set @p_out= 10 ;
    select 'test1'    
END
В С++ коде параметр создал вручную и перед вызовом процедуры поместил в него значение. @p_out= 5 . 

out_param=sp->CreateParameter("@p_out",adInteger,adParamInputOutput, sizeof(int), vtMissing);
params=sp->GetParameters();
params->Append(out_param);
out_param->PutValue( 5 );

После вызова ХП, значение переменной осталось таким-же, а не  10 .
Как только из ХП убрал SELECT, возвращаемое значение стало верным, т.е= 10 .

Почему не работает получение OUT параметров - понять хоть тресни не могу. Есть ли у кого РАБОТАЮЩИЙ пример работы с ADO для случая аналогичного моему?