In a query as long as your data type is numeric, say a Long Integer, you can do [FieldName] +1 as an update query using specific criteria to single out 1 record.
Really need more input from you, otherwise the above VBA code would still work if you strip the strings out of it. Unless of course...