DIM hConnectionTables AS .ConnectionTables
DIM hTable AS Table

FOR EACH hTable IN hConnectionTables
  ...
NEXT

Перечисляет все таблицы базы данных.