Need help creating an increment field VBA

[carbo]

I need to create a field named “casenumber” that will contain increment number value for each record (similar to “AutoNumber”) but I need it to reset to 0001 at the first of each month. I am using Access 2000.

Thanks in advance