Я разделил свою базу и прининковываю таблицы вот так

Код:

Set tdfLinked = CurrentDb().CreateTableDef("T_Staff")

tdfLinked.Connect = ";DATABASE=" & Pname

tdfLinked.SourceTableName = "T_Staff"

CurrentDb().TableDefs.Append tdfLinked

Код:

tdfLinked.Connect = ";DATABASE=" & Pname & " ;PWD = '1'"

Явно:

Код:

Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

Set tdf = db.CreateTableDef("Фирмы")

tdf.Connect = ";DATABASE=C:\Documents and Settings\Андрэич\Рабочий стол\Companies.accdb;PWD=12345"

tdf.SourceTableName = "Фирмы"

db.TableDefs.Append tdf

Через переменные:

Код:

Dim db As Database

Dim tdf As TableDef

Set db = CurrentDb

Set tdf = db.CreateTableDef("Фирмы")

tdf.Connect = ";DATABASE=" & Pname & ";PWD=" & PWDvalue

tdf.SourceTableName = "Фирмы"

db.TableDefs.Append tdf