exec AddAssessment '-1',  10 

ADODB::_CommandPtr cmd = NULL;
cmd.CreateInstance(__uuidof(ADODB::Command));
cmd->ActiveConnection = theApp.m_assess_cn;
cmd->CommandType = ADODB::adCmdStoredProc;
_bstr_t bsCommandText(L "AddAssessment" );
cmd->CommandText = bsCommandText;
ADODB::_ParameterPtr param1=NULL, param2=NULL;
HRESULT hr;
int f_id= 10 ;

hr = param1.CreateInstance(__uuidof(ADODB::Parameter));
if (SUCCEEDED(hr))	hr = param1->put_Type(ADODB::adVarChar);
if (SUCCEEDED(hr))	hr = param1->put_Value(_variant_t(L "тра-та-та" ));
if (SUCCEEDED(hr))	hr = param1->put_Direction(ADODB::adParamInput);
if (SUCCEEDED(hr))	hr = param1->put_Size( 9 );
if (SUCCEEDED(hr))	hr = param1->put_Name(_bstr_t(L "properties" ));

hr = param2.CreateInstance(__uuidof(ADODB::Parameter));
if (SUCCEEDED(hr))	hr = param2->put_Type(ADODB::adInteger);
if (SUCCEEDED(hr))	hr = param2->put_Value(_variant_t(f_id));
if (SUCCEEDED(hr))	hr = param2->put_Direction(ADODB::adParamInput);
if (SUCCEEDED(hr))	hr = param2->put_Size(- 1 );
if (SUCCEEDED(hr))	hr = param2->put_Name(_bstr_t(L "fname_id" ));

ADODB::Parameters* params = NULL;
if (SUCCEEDED(hr))	hr = cmd->get_Parameters(& params);
if (SUCCEEDED(hr))	hr = params->Append(param1);
if (SUCCEEDED(hr))	hr = params->Append(param2);
		
if(params) params->Release();
if(param1) param1->Release();
if(param2) param2->Release();

try
{
    cmd->Execute(&vtMissing,&vtMissing,ADODB::adCmdStoredProc);
}
catch(_com_error ex)
{
   AdoErrHandler(theApp.m_assess_cn);
   return;
}