COMO PONER CONTADOR A CERO

AURI
06 de Noviembre del 2003
Hola otra vez
Necesito llevar mi contador a cero y ademas tengo que guardarlo. Al guardar el año 01 hago lo siguiente
dim a as integer
dim b as integer
a=0
'el el evento click del cboaño
If cboaño.text="01" then
a=rs!contador.Value
b=a+1
txtcontador.text=b
esta b es la que guardo en el campo contador.
Al pasar al año 02:
a=0
b=a+1
txtcontador.text=b
si le añado rs!ªcontador.text, el programa busca el ultimo registro que tengo del 01 y sigue contando a partir de ahi o simplimente me lo pone a cero todo el tiempo
MI PROBLEMA ES QUE NO TENGO NI IDEA DE LO QUE HACER. Se te ocurre algo Baltasar? O a alguien?