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