_ConnectionPtr ConnectToSQLServer;
_RecordsetPtr m_rSet = NULL;
m_rSet.CreateInstance (__uuidof(Recordset));
_bstr_t  bt;

bt = (_bstr_t)"exec Rubikon.dbo.Get_Contra_List";
m_rSet = ConnectToSQLServer->Execute(bt, &RecordsAffected, adCmdText);

_variant_t recs, varErr((long) 0 , VT_ERROR);
_CommandPtr comm(__uuidof(Command));
comm->ActiveConnection=ConnectToSQLServer;
comm->CommandText="Rubikon..Get_Contra_List_1";
comm->CommandType = adCmdStoredProc ; 
comm->Parameters->Refresh();
_RecordsetPtr rs = comm->Execute(&recs, &vtMissing, adCmdStoredProc);

if (m_rSet->State == adStateOpen)
{
.....
}