Массовое удаление таблиц из БД - VB

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

Есть mdb файл. В нем имена таблиц присвоены в порядке иерархии: tab1: 01 tab2: 011 Tab3: 0111 и т.д. При удалении tab1: 01 нужно удалить связанные с ней таблицы. Побывал что то вроде этого

nametable = "Группа " & (DKPTPEdit.Adodc1.Recordset(0)) & "*"
Set dbsNew = OpenDatabase(App.Path & "\Data\DKPTP\Секция " & (DKPTPFrm.Text1.Text) & ".mdb")
dbsNew.TableDefs.Delete (nametable)

Пишет что такой таблицы нет. Будьте добры, подскажите! Заранее благодарен!

Решение задачи: «Массовое удаление таблиц из БД»

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

                            DROP TABLE tab3;
DROP TABLE tab2;
DROP TABLE tab1;
                        