Ma datagrid ce rafraichit une fois sur 4 voir plus et je ne sais pas pourquoi

J'utilise une commande sql pour ecrire dans ma base de donnée.
Enfin voila le code
Private Sub cmdAjouterS_Click()
Set db = DBEngine.Workspaces(0).OpenDatabase(dbName1)
db.Execute "INSERT INTO Detecteur_Standard(Type_de_detecteur,Nombre_de_detecteur)VALUES('" & DTCtypeS.Text & "','" & txtdetecteur.Text & "')"
Set DtGDS.DataSource = adoRecordset
adoRecordset.Requery
DtGDS.Refresh
Rafraichir la datagrid ne change strictement rien. . .
Une aide serait vraiment la bienvenue :)
Merci d'avance.