[VBA]rst.Edit
rst.Fields(fieldName).Value = rst.Fields(fieldName).Value + 1
rst.Update
rst.Close
[/VBA]
was replaced by
[VBA]DoCmd.RunSQL ("Update " & fieldname & " " & rst.Fields(fieldName).Value + 1)[/VBA]

That seemed to do it.