reiniciar a cero con el año

oscarnegro37
22 de Enero del 2005
hola
quisiera que mi programa de oficios se reinicie a cero con cada año nuevo.
por ejemplo
año 2004 num de folio 32000
año 2005 num de folio 00001
gracias.
esta en vb6 con access 97 y crystal reports 4.1