双子窗体保存时提示”当前范围内的声明重复“？求助

Private Sub Form_Load()
    ApplyTheme Me
    LoadLocalLanguage Me

    Me.InitData
    If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "SELECT * FROM [维修结算单表] WHERE [维修结算单编号]=" & SQLText(Me.OpenArgs)
        LoadRecord "TMP_维修结算单项目明细表", "SELECT * FROM [维修结算单项目明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    End If
     If Nz(Me.OpenArgs) <> "" Then
        LoadRecord Me, "SELECT * FROM [维修结算单表] WHERE [维修结算单编号]=" & SQLText(Me.OpenArgs)
        LoadRecord "TMP_维修结算单配件明细表", "SELECT * FROM [维修结算单配件明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    End If

    If Me.DataEntry Then
        Me![维修结算单编号] = Null
    End If

    Me.sfrDetail.Requery
    Me.btnSave.Enabled = Me.AllowEdits
End Sub

Private Sub btnSave_Click()
    On Error GoTo ErrorHandler

    If Not CheckRequired(Me) Then Exit Sub
    If Not CheckTextLength(Me) Then Exit Sub
    If Not CheckRequired(Me.sfrDetail) Then Exit Sub

    Dim cnn: Set cnn = GetADOConnection()

    cnn.BeginTrans
    Dim blnTransBegin As Boolean: blnTransBegin = True

    If Nz(Me![维修结算单编号]) = "" Then Me![维修结算单编号] = GetAutoNumber("维修结算单编号")
    Dim strSQL: strSQL = "SELECT * FROM [维修结算单表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    Dim rst:    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    If rst.EOF Then rst.AddNew
    UpdateRecord Me, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
    rst.Update
    rst.Close

    cnn.Execute "DELETE FROM [维修结算单项目明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    strSQL = "SELECT * FROM [维修结算单项目明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_维修结算单项目明细表")
    Do Until rstTmp.EOF
        rst.AddNew
        UpdateRecord rstTmp, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
        rst![维修结算单编号] = Me![维修结算单编号]
        rst.Update
        rstTmp.MoveNext
    Loop
    cnn.Execute "DELETE FROM [维修结算单配件明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    strSQL = "SELECT * FROM [维修结算单配件明细表] WHERE [维修结算单编号]=" & SQLText(Me![维修结算单编号])
    Set rst = ADO.OpenRecordset(strSQL, adLockOptimistic, cnn)
    Dim rstTmp: Set rstTmp = CurrentDb.OpenRecordset("TMP_维修结算单配件明细表")
    Do Until rstTmp.EOF
        rst.AddNew
        UpdateRecord rstTmp, rst
    '你的自定义代码
    'rst!Field1 = Me!Field1
    'rst!Field2 = Me!Field2
        rst![维修结算单编号] = Me![维修结算单编号]
        rst.Update
        rstTmp.MoveNext
    Loop
    rst.Close
    rstTmp.Close

    cnn.CommitTrans
    blnTransBegin = False

    RequeryDataObject gsfrList
    MsgBoxEx LoadString("Saved Successfully."), vbInformation

    If Me.DataEntry Then
        Me.InitData
    Else
        DoCmd.Close acForm, Me.Name, acSaveNo
    End If

ExitHere:
    Set rst = Nothing
    Set cnn = Nothing
    Set rstTmp = Nothing
    Exit Sub

ErrorHandler:
    If blnTransBegin Then
        cnn.RollbackTrans
        blnTransBegin = False
    End If
    RDPErrorHandler Me.Name & ": Sub btnSave_Click()"
    Resume ExitHere
End Sub

Private Sub btnCancel_Click()
    On Error Resume Next
    DoCmd.Close acForm, Me.Name, acSaveNo
End Sub