Please help...3219 error

[Appu]

If temp.State = adStateOpen Then temp.Close//here I get the error
temp.Open "select * from Loanledger where staffno=" & dm.Fields("staffno") & " order by transdate desc", db, adOpenKeyset, adLockOptimistic, adCmdText
If temp.RecordCount >= 1 Then
ledger.AddNew
.....
ledger.update

I get the error no. 3219 Operation not allowed in this context while updating records.