Процедура для переопределения связей между базами

Здравствуйте.
У меня есть несколько баз в Аксе. Они все имеют связь друг с другом - через связанные таблицы. Скажем, в базе "Физические лица" имеется таблица "Физлица", которая является связанной для базы "Юридические лица". В базе "Адреса" - таблица, которая является связанной для базы "Физические лица" и базы "Юридические лица". В общем, в каждой базе полно связанных таблиц.
(Я не стала помещать все в одну базу, получалось громоздко).

Так вот.
Я с базами работаю не только на работе, но и домой приношу на флешке. И дома мне приходится переопределять все связи, иначе не работает. Потом на работе - снова переопределять все связи, которые я изменила дома. Там ведь пути разные!

Подскажите, как сделать процедурку в VBA для автоматического переопределения связей между базами?

Для каждой связанной таблицы выполнить переопределение связей.
Примерно так.

Dim Tdf As TableDef
For Each Tdf In CurrentDb().TableDefs
  With Tdf
    If Len(.Connect) > 0 Then
      .Connect = ";DATABASE=" & <новый путь>
      .RefreshLink

With Tdf

Сообщение отправилось раньше времени, незавершенным...
Ну и ладно.
И так все понятно.)))

Michelle, всё работает, спасибо! ^)