Sub LinkedTable()
Dim tdfLinked As TableDef
Set tdfLinked = CurrentDb().CreateTableDef("Name1")
tdfLinked.Connect = ";DATABASE=c:\test.mdb;PWD=123"
tdfLinked.SourceTableName = "Name2"
CurrentDb().TableDefs.Append tdfLinked
End Sub