Class , how to encapsulate this :

[shong]

ok this my 1st time writing classes so i need help on
how to write a class for this :

void CADOMFC1View::OnMenuitem32771()
{
   _RecordsetPtr pRecordSet;
   CADOMFC1Doc * pDoc;
   pDoc = GetDocument();
   _bstr_t bstrQuery("SELECT * FROM App_Student");
   _variant_t vRecsAffected(0L);
   try
   {
     pRecordSet = pDoc->m_pConnection->Execute(bstrQuery,&vRecsAffected,adOptionUnspecified);
     
     if (!pRecordSet->GetadoEOF())
    {
      CListCtrlEx& ctlList = (CListCtrlEx&) GetListCtrl();
      ctlList.DeleteAllItems();
      while(ctlList.DeleteColumn(0));
      ctlList.AddColumn(" ID ",0);
      ctlList.AddColumn(" Name ",1);
      ctlList.AddColumn(" Gender ",2);
      ctlList.AddColumn(" Subject 1 ",3);
      ctlList.AddColumn(" Subject 2 ",4);
      ctlList.AddColumn(" Class ",5);
      int i = 0;
      _variant_t ID;
      _variant_t vName;
      _variant_t cGender;
      _variant_t vSubject1;
      _variant_t vSubject2;
      _variant_t Class;
      while (!pRecordSet->GetadoEOF())
      {
        ID = pRecordSet->GetCollect(L"ID");
        ctlList.AddItem(i,0,(_bstr_t) ID);
        vName = pRecordSet->GetCollect(L"vName");
        ctlList.AddItem(i,1,(_bstr_t) vName);
        cGender = pRecordSet->GetCollect(L"cGender");
        ctlList.AddItem(i,2,(_bstr_t) cGender);
        vSubject1 = pRecordSet->GetCollect(L"vSubject1");
        ctlList.AddItem(i,3,(_bstr_t) vSubject1);
        vSubject2 = pRecordSet->GetCollect(L"vSubject2");
        ctlList.AddItem(i,4,(_bstr_t) vSubject2);
        Class = pRecordSet->GetCollect(L"Class");
        ctlList.AddItem(i,5,(_bstr_t) Class);

        pRecordSet->MoveNext();
        i++;
      }
    }
    pRecordSet->Close();
  }
  catch( _com_error &e )
  {
    // Get info from _com_error
    _bstr_t bstrSource(e.Source());
    _bstr_t bstrDescription(e.Description());
    TRACE( "Exception thrown for classes generated by #import" );
    TRACE( "\tCode = %08lx\n", e.Error());
    TRACE( "\tCode meaning = %s\n", e.ErrorMessage());
    TRACE( "\tSource = %s\n", (LPCTSTR) bstrSource);
    TRACE( "\tDescription = %s\n", (LPCTSTR) bstrDescription);
  }
  catch(...)
  {
    TRACE( "*** Unhandled Exception ***" );
  }

}

THANKS