VC ADO ACCESS 获取列名

BOOL GetAllFields(_RecordsetPtr m_pRecordset,CStringArray & fieldsarray)
    {
        if (m_pRecordset)
        {
            if (m_pRecordset->State)
            {
                try
                {
                    HRESULT   hr;       
                    Fields *  fields = NULL;       
                    hr = m_pRecordset->get_Fields (&fields);
                    long ColCount;       
                    if(SUCCEEDED(hr))        
                        fields->get_Count(&ColCount);       
                    for(long i=0;i<ColCount;i++)
                    {   
                        Field *   field = NULL;   
                        field = fie