'Обновление Области Навигации (Navigation Pane) CurrentDb.TableDefs.Refresh 'Обновляем список таблиц Application.RefreshDatabaseWindow DoEvents