есть код
Dim dbs As dao.Database, tdf1 As dao.TableDef, tdf2 As dao.TableDef
Dim fld1 As dao.Field, fld2 As dao.Field, fld3 As dao.Field
Dim blX As Boolean
Set dbs = CurrentDb
Set tdf1 = dbs.TableDefs![т1]
Set tdf2 = dbs.TableDefs![т2]
For Each fld1 In tdf1.Fields
blX = True
For Each fld2 In tdf2.Fields
If fld2.Name = fld1.Name Then
blX = False
Exit For
End If
Next fld2

If blX = True Then
Set fld3 = tdf2.CreateField(fld1.Name)
fld3.Type = fld1.Type
On Error Resume Next
fld3.Size = fld1.Size
On Error GoTo 0
tdf2.Fields.Append fld3
End If

Next fld1

который добавляет недостающие столбцы из табл. т1 в т2
таблицы я импортирую с помощью макроса.
Но вот беда попадаются такие таблицы на которые акс ругается типа не могу добавить поле потому, как оно уже существует, но если эти же таблицы импортировать в ручную (таблица->создать->импорт таблиц) то всё работает. Вопрос почему не работает при импортировании с помощью макроса?

Я беру две таблицы экцель импортирую в акс это можно сделать двумя способами
1. назовём его в hexmye. (таблица->создать->импорт таблиц)
2. и с помощью макроса.
дак вот при первом способе импорта всё работает, а при втором ругается, но не на все таблицы.(факт)
Вот я и думаю может ли от этого зависить работа программы.