[privalihin]

Ставишь на форму Timer, присваеваешь свойству Interval 5000 (10000) - это сколько секунд 5 либо 10, можешь еще меньше. Когда запись добавлена, записи DataGrid обновяться через столько секунд укажешь и все сразу же увидишь.


'процедура обновления данных
Private Sub Timer1_Timer()
Dim book As Variant
Dim coll As Integer
On Error Resume Next
book = Adodc1.Recordset.Bookmark
coll = DataGrid1.Col
Adodc1.Refresh
Adodc1.Recordset.Bookmark = book
DataGrid1.Col = coll
End Sub