data report+data environment显示数据，报实时错误，3251，怎么解决

Question

代码如下 
If DE.rsBBK.State = adStateOpen Then DE.rsBBK.Close 
DE.rsBBK.Open "SELECT * FROM bbk", CNT, adOpenKeyset, adLockPessimistic 
Do Until DE.rsyue.EOF 
    If (DE.rsrk.State = 1) Then DE.rsrk.Close 
    DE.rsrk.Open "SELECT 产品编号,SUM(数量) AS 本月入库 FROM rk WHERE 产品编号='" + DE.rsyue.Fields("产品编号") + "' AND  入库日期 between '" + qsrq + "'and '" + zzrq + "' GROUP BY 产品编号" 
    If DE.rsrk.RecordCount > 0 Then 
            DE.rsrk.MoveFirst 
            DE.rsBBK.AddNew 
            DE.rsBBK.Fields("本月入库") = DE.rsrk.Fields("本月入库")  '============ 
            DE.rsBBK.Fields("产品编号") = DE.rsyue.Fields("产品编号") de是我的数据环境的名字，BBK是我的一个表，运行是在DE.rsBBK.AddNew这里 报错，错误内容是实时错误，3251，当前记录集不支持更新，为什么啊，该怎么解决啊 我用的是sql server数据库，是因为数据库里的权限的问题吗？我已经把所有的权限都选上了啊，可是还是在报相同的错误，帮帮忙，谢谢