リンクテーブルを使っていますが、リンク先を変えるには?

「リンクテーブルを使っていますが、リンク先を変えるには?」

リンクテーブルを使っています。
リンク先の変更をするにはTableDefオブジェクトの「Connect」プロパティの修正をすればいいと思うのですが、
ヘルプには変更できるとあるのに実際には変更しても反映されないです。(つまり変更できません。)
どうすればいいですか?

回答

Connectプロパティの変更後、RefreshLinkを呼び出す必要があります。

ソース

Sub ChangeLink()
  Dim db As Database

  Set db = CurrentDb()

  db.TableDefs("Table1").Connect = ";DATABASE=c:\linked.mdb"
  db.TableDefs("Table1").RefreshLink

  'Debug.Print db.TableDefs("Table1").Connect

End Sub