[VBA] Azzerare il contatore di una tabella Access

[primeros]

Ciao ragazzi ho la necessità di copiare (e questo è fatto) ed azzerare il contatore della tabella "ARCHIVIO" con la relativa cancellazione di tutti i records e questo non mi funziona bene vi posto il codice mi potete dire dove sbaglio? Razzzzie mille

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