Create a global counter in a class module, then on the Form's OnOpen event incremet the counter using the NZ funtion because the counter will initially be empty.
Something like using an update query [SQL] with the DMax() function to determine the highest number then add one (+1) to it. Store the number in a table.