ник: Sharpp
Всем спасибо, это оказалось проще чем я думал
Sub Link()
Dim dbCurrent As Database
Dim tdTarget As TableDef
Dim fldLoop As Field
Set dbCurrent = CurrentDb()
Set tdTarget = dbCurrent.CreateTableDef("clients")
tdTarget.Connect = "ODBC;DSN=Mop-Ekat-orig;UID=;SourceDB=p:\mop\Екатеринбург\OPER\DBFS;SourceType=DBF;Exclusive=No;BackgroundFetch=Yes;Collate=Machine;Null=Yes;Deleted=Yes;"
tdTarget.SourceTableName = "clients"
dbCurrent.TableDefs.Append tdTarget
dbCurrent.Close
Set tdTarget = Nothing
End Sub