Vorrei rivisualizzare il contenuto del datagrid dopo aver effettuato delle modifiche al db(access)

Ho usato questa procedura...
-------------------------------
Private Sub ripristina()
On Error GoTo RefreshErr

Set grdDataGrid.DataSource = Nothing
'adoPrimaryRS.Requery
adoPrimaryRS.Close
adoPrimaryRS.Open
Set grdDataGrid.DataSource = adoPrimaryRS

Exit Sub
RefreshErr:
MsgBox Err.Description
End Sub
----------------------------

Ma ho verificato che alcune volte non va...
Sembra che venga riassegnato al datagrid il recordset prima ancora che le modifiche siano state effettivamente scritte sul db
Infatti se uso il debug tutto va bene.... che casino....

Ho provato ad usare uno sleep ma questa sol non mi piace ed alcune volte non va...

Aiutatemi vi prego... o qui non si va avanti