如何用代码实现分层计算(请高手调教,谢谢)

我有一个科目表,

科目代码    科目名称     上级科目    科目级次   是否末级   金额

1           开发成本                      1           否             

2           管理费用                      1           否

3           营业外支出                    1           是      100

101         土地成本        1             2           是      200

102         建安成本        1             2           是      234

201         办公费          2             2           是      300

202         差旅费          2             2           是      456

现在我要用代码实现一级非末级科目中金额(即金额为空的记录)等于二级末级科目之和,程序老报"当前记录集不支持更新,这可能是提供程序的限制,也可能是选定锁定类型的限制",可能是程序代码的问题,可能是方法根本就不对,也可能表本身的问题,请高手指点调教,谢谢.

代码如下:

'目的:将所有二级明细科目金额的值赋于一级科目金额,在表中实现数据更改,本人只做到了MSGBOX输出,初学ADO,不太会用命令,请高手指教,本人将不胜感激
Private Sub Command5_Click()
Dim cnn As New ADODB.Connection
Dim rst1 As New ADODB.Recordset
Dim rst2 As New ADODB.Recordset
Dim STRSQL, STRSQL1 As String
Dim JINE As Long
Dim AA As Long
Set cnn = CurrentProject.Connection
STRSQL = "select * from 科目表 WHERE 科目级次=1 AND 是否末级=0"
Set rst1 = cnn.Execute(STRSQL)
Do While Not rst1.EOF
AA = rst1("科目代码")
STRSQL1 = "SELECT 上级科目,SUM(金额) AS 金额总计 FROM 科目表 WHERE 上级科目=" & AA & " GROUP BY 上级科目"
Set rst2 = cnn.Execute(STRSQL1)
MsgBox rst1("科目名称") & rst2("金额总计")'此处为检测句,能通过,支掉下边两句,也能实现循环
'rst1("金额") = rst2("金额总计") '问题之所在
'rst1.Update'问题之所在
rst1.MoveNext
Loop
End Sub