wladimirrr,
Ассесс матюкается, потому что в процессе создания новой таблицы видит, что таблица с таким именем уже существует.
Сделайте предварительное удаление таблицы и только тогда создавайте новую.
Убить таблицу TTest:
DoCmd.DeleteObject acTable, "TTest"

Но тут есть нюанс. Если таблица TTest существует - удалится без проблем. Если такой таблицы нету - будет матюкаться. Потому надо либо делать предварительную проверку на существование таблицы TTest (но это уже другая история, инфы на форуме хватает), либо делать "молчаливое удаление".
Например, в похожих ситуациях я использую варварский метод "найти и молча убить все таблицы, в которых часть имени совпадает с указанным". Вот у меня таблицы, полученные от клиента, называются, скажем "ТОплатаПришло", "ТЗаказПришло", "ТДисконтПришло".

Вот по "Пришло" я их отлавливаю и убиваю:
With CurrentData.AllTables
For i = .Count - 1 To 0 Step -1
If InStr(1, .Item(i).Name, "Пришло") > 0 Then
CurrentDb.Execute "drop table " & .Item(i).Name
End If
Next
End With

Причём никаких матюков это не вызывает: есть подходящие таблицы - молча удаляет. Нету нужных - молча в холостую срабатывает и всё.

wladimirrr, это радует )