П-ЛAndDestrЕсли не сложно ссылку на "трюк" и на "штатный способ" :) буду очень благодарен
Штатный способ
В приложении пример mdb 2003. Не забудьте при открытии app.mdb переподключить ссылку на lib.mdb.


Спасибо большое.

NeboБудет желание напишите сюда побольше про CodeDB.
Как Вы с ним работаете. Ну какой-нибудь примерчик:)

Простейший вариант: запускной файл app.mdb (2000)
не забудьте в переподключить библиотеку lib.mdb

NeboAndDestr,
Другими словами как Вы программно переподключаете присоединённые таблицы
одновременно сразу во всех модулях и в основном модуле??
Ведь они же все должны быть синхронно подключены в случае если изменился путь к базе?

Сложного ничего нет. я уложился в 4-ре нормализованные таблицы (можно обойтись одной не нормализованной и около 100 строчек кода :)
основой переподключения таблиц служит две функции:
1-я отключение всех прилинкованных таблиц, перечень которых задается рекордсетом, в указанной базе
Private Function DisconectTablesForModule(ByRef ARst As DAO.Recordset, ByRef ADb As DAO.Database) As Boolean
Dim tdf As TableDef
On Error GoTo ERR_DisconectTablesForModule
DisconectTablesForModule = False
ARst.MoveFirst
Do While Not ARst.EOF
For Each tdf In ADb.TableDefs
If tdf.Name = ARst.Fields("TableName") Then
ADb.TableDefs.Delete tdf.Name
Exit For
End If
Next
ARst.MoveNext
Loop
ARst.MoveFirst
DisconectTablesForModule = True
Exit Function
ERR_DisconectTablesForModule:
' сообщение об возникшей ошибке при отключении таблицы
End Function

2-я собственно само подключение таблиц:
кусок кода из функции:
strSQL1 = "SELECT BaseFileName, TableName FROM ListFileBases "
Set rst1 = CodeDb.OpenRecordset(strSQL1)

If Not rst1.EOF Then
Set db = DBEngine.OpenDatabase(strPathToModule)
If Not DisconectTablesForModule(rst1, db) Then: GoTo END_FUNCTION

strBaseFileName = ""
Do While Not rst1.EOF
If strBaseFileName <> rst1.Fields("BaseFileName") Then
strBaseFileName = rst1.Fields("BaseFileName")
If Not gFileExists(strPathToBase & "\" & strBaseFileName) Then: GoTo END_FUNCTION
End If
Set tdfLinking = db.CreateTableDef(rst1.Fields("TableName"))
tdfLinking.Connect = ";DATABASE=" & strPathToBase & "\" & strBaseFileName
tdfLinking.SourceTableName = rst1.Fields("TableName")
db.TableDefs.Append tdfLinking

rst1.MoveNext
Loop
rst1.Close
db.Close
Set db = Nothing
end if

плюс еще пару десятков сервисных строк, которые позволяют перебрать перечень библиотек и таблиц и собирают нужный рекордсет (ну это уже зависит от реализации самой структуры таблиц в которых расписывается из какой базы, какую таблицу в какую библиотеку линковать)