ADO的Oracle数据写入错误

try 
{ 
            _variant_t vt; 
            vt.ChangeType(VT_BSTR); 
            vt = (_bstr_t)strZM[i]; 
            p_Record->PutCollect( "ZM", vt); 
              vt = (_bstr_t)strTime; 
              p_Record->PutCollect( "STRTIME", vt); } 
        catch(_com_error &e) 
{ 
          AfxMessageBox(e.Description()); 
} 
    //p_pRecordset->Updata();///保存到库中 
for(int j=0;j <400+i;j++) 
{ 
    CString strZD; 
strZD.Format("ZD%d",j); 
    CString strValue; 
    strValue.Format("%5.3f",rand()/1000+i);//模拟值，实际应该是UDP协议采集过来的值 
p_Record->PutCollect(_variant_t(strZD),_variant_t(strValue)); } 
p_Record->Update(); 
} 基于ADO的Oracle数据写入程序，运行到for循环处会出现错误，显示程序不支持更新或者锁定数据格式不正确 
清各位高手帮忙。 
很急，在线等