ADO连Oracle有必要为每一张表都创建一个类吗&&程序异常求救

BOOL UserM::OnInitDialog() 
{
    CDialog::OnInitDialog();
    m_listuserm.SetExtendedStyle(LVS_EX_FLATSB
        |LVS_EX_FULLROWSELECT
        |LVS_EX_HEADERDRAGDROP
        |LVS_EX_ONECLICKACTIVATE
        |LVS_EX_GRIDLINES);   //设置列表框控件扩展风格
    //初始用户信息列表框控件
    m_listuserm.InsertColumn(0,"USERID",LVCFMT_CENTER,50);
    m_listuserm.InsertColumn(1,"UNAME",LVCFMT_CENTER,80);
    m_listuserm.InsertColumn(2,"PASSW",LVCFMT_CENTER,80);
    m_listuserm.InsertColumn(3,"TYPED",LVCFMT_CENTER,80);
    m_listuserm.InsertColumn(4,"INF1",LVCFMT_CENTER,100);
    m_listuserm.InsertColumn(5,"INF2",LVCFMT_CENTER,100);
    m_listuserm.InsertColumn(6,"INF3",LVCFMT_CENTER,100);
    
    // TODO: Add extra initialization here
    
    return TRUE;  // return TRUE unless you set the focus to a control
    // EXCEPTION: OCX Property Pages should return FALSE
}

void UserM::Onrefreshstr() //数据刷新按钮
{       m_listuserm.DeleteAllItems();  //清楚所有列表项

        m_ado.OnInitADOConn();
        CString sql="select * from LOGINF";
        m_ado.m_pRecordset = m_ado.GetRecordSet(sql);
                  Fields * fields=NULL;
        long countl,i;
        BSTR bstr;
//        countl=fields->Count;
        fields->get_Count(&countl);
        for( i=countl-1;i>=0;i--)
        {
            fields->Item[i]->get_Name(&bstr);
            m_listuserm.InsertColumn(i,(CString)bstr,LVCFMT_LEFT,100,0);
        }
        int k;
        _variant_t var;
        tagVARIANT varFieldVal;
        var.vt = VT_I2;
        FieldPtr pField;
        while(!m_pRecordset->adoEOF)
        {
            m_listuserm.InsertItem(0, "");
            for(k=countl-1;k>=0;k--)
            {
                var.iVal = k;
                pField = m_pRecordset->Fields->GetItem(var);
                pField->get_Value(&varFieldVal);
                if(varFieldVal.vt != VT_NULL)
                    m_listuserm.SetItemText(0,k,(char*)(_bstr_t)varFieldVal);
                m_listuserm.InsertColumn(i,(CString)bstr,LVCFMT_LEFT,100,0);
            }
            m_pRecordset->MoveNext();
        }

        m_ado.ExitConnect();
}