平台的复制新增按钮，新增加的记录会把上一条记录覆盖掉，导致上一条记录丢失

请教下我用平台的复制新增按钮，新增加的记录会把上一条记录覆盖掉，导致上一条记录丢失，帮忙看下。

Private Sub btnCopyToNew_Click()
    Set gsfrList = Me.sfrList
    DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
                   DataMode:=acFormAdd, _
                   OpenArgs:=Me.sfrList![编号]
End Sub


Public Sub btnEdit_Click()
    If Not Me.sfrList.Form.CurrentRecord > 0 Then Exit Sub


    Me.sfrList.SetFocus
    RunCommand acCmdSelectRecord


    Set gsfrList = Me.sfrList
    DoCmd.OpenForm FormName:=Me.Name & "_Edit", _
                   DataMode:=IIf(Me.btnEdit.Enabled, acFormEdit, acFormReadOnly), _
                   OpenArgs:=Me.sfrList![编号]
End Sub