求教

代码如下：
void CTestwuliouDlg::OnWriteBz() 
{
    
    CDaoDatabase* m_pDatabase;
    CDaoRecordset* m_pRecordset;    CString strWuLiou;
    CString strMuDi;
    CString strYuan;
    COleVariant varMuDi;
    COleVariant varWuLiou;
    COleVariant varYuan;
    char *strBz="1";
    char *strWlm="1111111111111";
    char *strPcl="2222";
    
    m_pDatabase = new CDaoDatabase;
    try
    {
        //m_pDatabase->Open(strMdb);
        //"data source=AUTO;initial catalog=市场部;Connect TimeOut =30;user id =sa; password =c" +
        //        "wj";
         m_pDatabase->Open(NULL,FALSE,FALSE,"ODBC;DSN=wljk;UID=sa;PWD=cwj;");  
        //m_pDatabase->Open(NULL,FALSE,FALSE,"Driver={SQL Server};Server =AUTO;Uid =sa;Pwd =cwj;initial catalog=wljk");  
        m_pRecordset = new CDaoRecordset(m_pDatabase);
    }
    catch(CDaoException *e)
    {
        //e->ReportError();
        delete m_pDatabase;
        m_pDatabase = NULL;
        //e->Delete();
        return ;
    }
    
    if(!m_pDatabase->IsOpen()) return ;
    try
    {
        CString strSelect(_T("Select * from 入出库表 "));
        m_pRecordset->Open(dbOpenDynaset,strSelect,dbConsistent);
        m_pRecordset->MoveFirst();
            if ( strBz[0]=='1')
        {
                                                                m_pRecordset->Edit();//跳出，提示出错
                    
                m_pRecordset->SetFieldValue(6,"5");
                    m_pRecordset->Update();
                    
        }        
                return ;
    }
    catch(CDaoException *e)
    {
    
        e->ReportError();
        e->Delete();
        return ;
    }
    
}
//不知道为什么，请大家帮忙 提示出错如下：
不能更新，数据库或对象为只读，可是我是以可读打开的，且有可读的权限？？？？？