'Обновление Области Навигации (Navigation Pane) Application.RefreshDatabaseWindow
Или так:
'Обновление Области Навигации (Navigation Pane) CurrentDb.TableDefs.Refresh ' Обновление коллекции таблиц тек. БД Application.RefreshDatabaseWindow ' Обновление Области Навигации (Navigation Pane) DoEvents