Trou dans la base de données

Bonjour a tous !

je me suis fait un petit programme en Vb utilisant une base access et utilisant le sql, seulement voila depuis quelque temps je m apercoit qu'il me manque des enregistrements dans ma base, il se crée des trous un peu partout sur des enregistrements dont je modifie meme pas, je me contente de les lire ou d ajouter des nouveaux enregistrements, et les anciens disparaissent peu a peu

quels sont les différents probleme créant des trous dans une base access ?

format de base access 97 modifié éventuellement sous access xp
vb 6.0

requete d'ajout du genre :

Sql = "select * from FACTURER"
Set Rs = Db.OpenRecordset(Sql, dbOpenDynaset)

With Rs
.AddNew
.Fields("NUMFACT") = NumFact
.Fields("NUMPROD") = Numpro
.Fields("PRIXHT") = Val(Temp)
.Update
.Close
End With

et eventuellement

Sql = "select * from FACTURER"
Set Rs = Db.OpenRecordset(Sql, dbOpenSnapshot) pour la lecture