Sub MDB_TABLE_REFRESH()
    re_link_table "M_AGENT"
    re_link_table "M_FA_LOCATION"
    re_link_table "M_STATUS"
    re_link_table "T_COMMNET"
    re_link_table "T_REQUEST"
End Sub

Sub re_link_table(tbl_name As String)
    Dim dbs As Database
    Dim tdf As TableDef

    Set dbs = CurrentDb
    Set tdf = dbs.TableDefs(tbl_name)
    With tdf
      .Connect = ";DATABASE=\\xxxxxxx\zzz.accdb;TABLE=" & tbl_name
      .RefreshLink
    End With
End Sub