Список таблиц в выпадающем списке

Здравствуйте, помогите пожалуйста разобраться с проблемой. Нужно чтобы все таблицы, которы находятся в базе выводились элементом "выпадающий спиксок". Вообще нет мыслей как это можно организовать. Таблицы могут удаляться и добавляться. Возможно ли автоматическое поддерржание актуального саиска этих таблиц?

SELECT Name FROM MSysObjects WHERE Type=1

Predeclared,

Поясните, пожалуйста, ваш код.

Исключаем системные таблицы

SELECT Name FROM MSysObjects WHERE Type=1 AND Flags=0

__Michelle
Исключаем системные таблицы

Это противоречит ТЗ.
:)

Predeclared
__Michelle Исключаем системные таблицы Это противоречит ТЗ. :)

А-а-а-а...)))

Predeclared
__Michelle Исключаем системные таблицы Это противоречит ТЗ. :)

SIKSMFP
...Таблицы могут удаляться и добавляться....

Если только в сеансе работы-иначе в топку

PS. Даже в сеансе юзверь об этом даже догадываться не должен (подпускать его к таблицам нельзя)

Predeclared,

Спасибо!!!

Подскажите пожалуйста, как теперь организовать следующее: нужно чтобы после выбора таблицы появлялись различные данные из "Поля со списком"
Тут данные выбираются из определенной таблицы

Private Sub СписокКлиентов_AfterUpdate()
Dim s
s = "select Дата, НомерКорСчетаКлиента,ИннКонтрагент,Кредит, Дебит, Примечания from Лист1 where Контрагент='" & Me.СписокКлиентов.Column(0) & "'"
Me.Список.RowSource = s

Тут список всех таблиц

Private Sub ПолеСоСписком74_AfterUpdate()
Dim s1
s1 = "select Name from Запрос3 "
Me.ПолеСоСписком74.RowSource = s1