Call AddLink()

function AddLink()

	Dim Acc,newDef

	Set Acc = CreateObject("Access.Application")

	Acc.OpenCurrentDatabase( "c:\temp\販売管理B.mdb" )

	Set newDef = Acc.CurrentDb.CreateTableDef("新しいリンク")
	newDef.Connect = ";DATABASE=c:\temp\販売基本.mdb"
	newDef.SourceTableName = "社員マスタ"
	Acc.CurrentDb.TableDefs.Append (newDef)

end function