Azzerare il contatore tanella Access2003

[primeros]

Ciao, mi sono incartato, cerco di spiegarvi il problema
Il sottostante codice viene inserito su una maschera di ACCESS 2003 (Routine evento su apertura) Dove ho messo la faccina il codice si plocca e mi da l'errore che ho messo tra parentesi.
Vi ringrazio dell'aiuto


CODE
StrCriterio = "select * from ARCHIVIO"
Set Rst = CurrentDb.OpenRecordset("StrCriterio", dbOpenDynaset)

'CANCELLA TUTTI I RECORD PRESENTI
Rst.MoveFirst
Do Until Rst.EOF
Rst.EditMode (Qui mi dice "Errore di compilazione: Utilizzo non valido di property")
Rst.Delete
Rst.MoveNext
Loop

'AZZERA IL CONTATORE CREANDO UN RECORD TRANSITORIO
Rst.AddNew
Rst!ID = 0
Rst.Update

'ELIMINA IL RECORD TRANSITORIO
Rst.MoveFirst
Do Until Rst.EOF
Rst.EditMode
Rst.Delete
Rst.MoveNext
Loop

End Sub
/CODE