Access - Alguien que me ayude con links

Public Sub ActualizarLinks()

    Dim db As DAO.Database

    Dim tdf As DAO.TableDef

    Dim strNewPath As String

    Dim strTableName As String

    'Establecer la nueva ubicación de las tablas

    strNewPath = "C:\MiNuevaRuta\"

    'Obtener el objeto de base de datos actual

    Set db = CurrentDb()

    'Recorrer todas las tablas y actualizar los links

    For Each tdf In db.TableDefs

        'Solo vincular las tablas vinculadas (no las locales)

        If tdf.Attributes And dbAttachedTable Then

            'Obtener el nombre de la tabla

            strTableName = tdf.Name

            'Actualizar la ruta de origen

            tdf.Connect = ";DATABASE=" & strNewPath & strTableName & ".mdb"

            'Refrescar la tabla

            tdf.RefreshLink

        End If

    Next tdf

    'Cerrar la base de datos

    db.Close

End Sub