Сохраниение набора имен таблиц бд в массив с помощью vbscript

Формулировка задачи:

В цикле
For Each tb In DB_mdb.TableDefs.
удаляются нужные таблицы,но хочу переделать члед.образом.
Чтобы набор имен таблиц бд сохранялся в массив,колекцию или еще что-то чтобы цикл можно было сделать не по TableDefs и удалять таблицы уже по конкретным именам из массива,колекции
Как сделать сабж?

Решение задачи: «Сохраниение набора имен таблиц бд в массив с помощью vbscript»

textual
                            Листинг программы 
                        

                            i=<font color="darkblue"><b>0</b></font>
<font color="blue">For</font> <font color="blue">Each</font> tb <font color="blue">In</font> DB_mdb.TableDefs
   	<font color="blue">if</font> left(tb.<font color="blue">name</font>,<font color="darkblue"><b>4</b></font>)=<font color="teal">"temp"</font>  <font color="blue">then</font>
		<font color="blue">redim</font> Preserve NameTables(i)
		NameTables(i)=tb.<font color="blue">name</font>
		
	<font color="blue">end</font> <font color="blue">if</font>
	<font color="blue">if</font> tb.<font color="blue">name</font>=<font color="teal">"PUNKTY"</font> <font color="blue">then</font> 
		<font color="blue">redim</font> Preserve NameTables(i)
		NameTables(i)=tb.<font color="blue">name</font>
	<font color="blue">end</font> <font color="blue">if</font>
	i=i+<font color="darkblue"><b>1</b></font>
<font color="blue">next</font>


                        