如何修改字段

我本来用的窗体记录集类型是动态集，连续窗体，在审批状态是列表框，可以方便改变审批状态，但是发现窗体中报销金额等数据也是可以修改的，我不希望这些字段数据在这里被修改，所以把记录集类型改成快照了，但是在执行“审批”代码时，又不知怎么写了？

报销明细审批窗体：

数据源是 SELECT qryBxmx.* FROM qryBxmx;

审批状态字段：approve

经理审批子段：approver

表：tblBxmx

部分代码：

Option Compare Database
'Private Sub Form_Load()
'Me.RecordSource = "Select * FROM tblBxmx Where mxId = ''"
'g_CurrentSelectStrID = selectstr
'End Sub
'Private Sub Form_Load()
'Me.RecordSource = "Select * FROM tblCodeBxlb Where lbId = '" & selectstr & "'"
'g_CurrentSelectStrID = selectstr
'End Sub
Private Sub Command34_Click()
   If MsgBox("您确定同意给于报销?", vbOKCancel + vbInformation, "提示") = vbOK Then
           Set rst = CurrentDb.OpenRecordset("tblBxmx", dbOpenDynaset)
           rst.AddNew
           rst("approve") = "是"
           rst("approver") = "是"
           rst.Update
           rst.Close
           Set rst = Nothing
           '刷新数据
           If IsLoaded("usysfrmMain") Then
                   DoCmd.Echo False
                   Forms!usysfrmMain!frmChild.SourceObject = "frmBxmx_child"
                   DoCmd.Echo True
           End If
           MsgBox "保存成功!", vbInformation, "提示"
           'Me.approve = Null
           'Me.approver = Null
   
    End If
End Sub
希望实现功能：当鼠标选择“M0000000029”条时，单击“审批”按钮，实现审批状态为“是”，经理审批为“该处为审批人姓名”