Access - No se actualizan datos tras revincular tablas

Function VinculaTablas(ByVal BaseDatos As String, ByVal BackEnd As String)

On Error GoTo mal

Dim trabajo As DAO.Workspace

Dim Base, Back As DAO.Database

Dim TablaDef, TablaBack As TableDef

Dim sConexion As String

Set Base = OpenDatabase(BaseDatos) 'Abrimos base de datos remota

Set Back = OpenDatabase(BackEnd, False, False) 'Abrimos base de datos remota en modo normal

    For Each TablaDef In Base.TableDefs

        sConexion = Nz(TablaDef.Connect, "")

        If InStr(1, sConexion, "DATABASE=") > 0 Then 'Controlamos que sea una tabla vinculada

                TablaDef.Connect = ";DATABASE=" & BackEnd

        TablaDef.RefreshLink

        End If

    Next

'Cerramos

Back.Close

Set Back = Nothing

Exit Function

mal:

MsgBox ("Error al revincular tablas. " & Err.Description), vbCritical, "Error al revincular tablas"

End Function