Run time error 3021

[abu taher]

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
        .Update
        .Close
        MsgBox "Information is Saved", vbInformation, Me.Caption
         End With

[rproffitt]

You need to add more code to check if the SELECT is return no records and then add one for you to edit.
Or just INSERT your new record. Example at https://www.tutorialspoint.com/sql/sql-insert-query.htm