When I want to save data then show this error massage.
Run Time error 3021
Either BOF or EOF is true, or the current record has been deleted. Requested operation requires a current record.

 With rs1
rs1.Open "Select * from debtordue where debtorname = '" & Me.cmbreceiver & "'", con, adOpenKeyset, adLockOptimistic
        .Fields("due") = rs1.Fields("due") - Val(Me.txtamount)
        !debtorname = cmbreceiver
        !payment = txtamount
        !By = cmbRcvIBy
        !Date = RcvDate
        MsgBox "Information is Saved", vbInformation, Me.Caption
         End With