Bonsoir à tous

j'enregistre des données à l'aide du code suivant:
Code :
With MonRs
.AddNew
.Fields("TI1") = 130
.Fields("DAT") = Calendar1.Value
.Update
End With
la taille du fichier .mdb augmente. le problème;

premièrement les données ne sont pas enregistrées dans l'ordre de leur création (il y a chevauchement entre les données de 25/01/2010 et celles de 26/01/2010 par exple)
Je veux que le record nouvellement ajouté s'ajoute toujours à la fin de la table même après redémarrage successif de l'application

deuxièmement même lorsque je supprime tous les records à l'aide de l'instruction suivante
Code :
Cnn1.Execute "DELETE FROM ert WHERE DAT=#" & Format$(Calendar1.Value, "dd-mm-yyyy") & "# "
la taille reste comme si je n'ai rien fait. y a t-il une explication?

Merci d'avance