int main(){
  _bstr_t ConnStr = "Provider=SQLOLEDB;       \
                     Data Source=(local);     \
                     Initial Catalog=pubs;    \
                     Integrated Security=SSPI";
  _ConnectionPtr conn;
  try {
    conn.CreateInstance(__uuidof(Connection));
    conn->CursorLocation = adUseServer;
    conn->IsolationLevel = adXactReadCommitted;
    conn->Attributes     =  0 ;
    conn->Open(ConnStr,"","",adConnectUnspecified);

    _CommandPtr cmd;
    cmd.CreateInstance(__uuidof(Command));
    cmd->ActiveConnection = conn;
    cmd->CommandType      = adCmdStoredProc;
    cmd->CommandText      = "dbo.byroyalty";

    ParametersPtr pars = cmd->Parameters;
    pars->Append(cmd->CreateParameter("@ret",  adInteger, adParamReturnValue,  0 ,  0 ));
    pars->Append(cmd->CreateParameter("@perc", adInteger, adParamInput,        0 ,  0 ));

    pars->Item[1L]->Value =  100 ;
    _RecordsetPtr rs = cmd->Execute( 0 , 0 ,adOptionUnspecified);

    while(!rs->adoEOF){
      std::cout << _bstr_t(rs->Fields->Item[0L]->Value) << std::endl;
      rs->MoveNext();
    }
  }catch(_com_error &e){
    std::cerr << " Error " << (const char*)e.Description() << std::endl;
  }
  return  0 ;
}