|
Call AddLink()
function AddLink()
Dim Acc,newDef
Set Acc = CreateObject("Access.Application")
Acc.OpenCurrentDatabase( "c:\temp\”Ì”„ŠÇ—B.mdb" )
Set newDef = Acc.CurrentDb.CreateTableDef("V‚µ‚¢ƒŠƒ“ƒN")
newDef.Connect = ";DATABASE=c:\temp\”Ì”„Šî–{.mdb"
newDef.SourceTableName = "ŽÐˆõƒ}ƒXƒ^"
Acc.CurrentDb.TableDefs.Append (newDef)
end function
| |