HOWTO: Change the Name of a Microsoft Access Field w/MFC DAO

   ///////////////////////////////////////////////////////////////////
   // CTabDef - class definition

   class CTabDef : public CDaoTableDef
   {
   public:
       CTabDef( CDaoDatabase* pDB) : CDaoTableDef( pDB )
       { }

       ~CTabDef() {}

       void ChangeFieldProperty(LPCTSTR szOldName, LPCTSTR szNewName);
   };

   /////////////////////////////////////////////////////////////////
   // CTabDef - implementation
   void CTabDef::ChangeFieldProperty( LPCTSTR szOld, LPCTSTR szNew )
   {
     // To be used as an "in" param to get_Item
     DAOField* pDAOField = NULL;

     if (m_pDAOFields == NULL)
          InitFieldsCollection();

       // Enumerate the fields collection and find the field.
       // Then replace the name property with the new string.
       try
       {
       DAO_CHECK( m_pDAOFields->get_Item(
                  COleVariant(szOld, VT_BSTRT), &pDAOField ) );

         DAO_CHECK( pDAOField->put_Name(
                  COleVariant(szNew, VT_BSTRT).bstrVal ) );
       }
       catch( CDaoException* e )
       {
           AfxMessageBox( e->m_pErrorInfo->m_strDescription );
           goto term;
       }
       catch(...)
       {
           AfxMessageBox( _T( "unknown exception" ) );
           goto term;
       }

       term:
       if( pDAOField )
           pDAOField->Release();
   }