MS Accessのリンクテーブル更新

Dim database As database
Set database = CurrentDb

Dim tableName As String
tableName = "test_table"

Dim path As String
path = "C:\test.mdb"

Dim tableDef As tableDef
Set tableDef = database.TableDefs(tableName)

tableDef.Connect = ";DATABASE=" & path
tableDef.RefreshLink

Set tableDef = Nothing
Set database = Nothing