Function Revincula97(RutaMdbDatos As String)
    Dim ObjetoTabla As TableDef
    Dim Contador As Integer, Rst As Recordset

    For Each ObjetoTabla In CurrentDb.TableDefs
        If Len(ObjetoTabla.Connect) > 0 Then
           
            ObjetoTabla.Connect = ";DATABASE=" & RutaMdbDatos
            Contador = Contador + 1
            On Error Resume Next
            ObjetoTabla.RefreshLink
            'Aqui aplico lo de Juan M Afan de Ribera
            If Contador = 1 Then
               Set Rst = CurrentDb.OpenRecordset(ObjetoTabla.name)
            End If
        End If
    Next ObjetoTabla
    If Contador <> 0 Then
     'cierro el recordset de la primera tabla
     'que aceleraba el proceso de revinculación
     Rst.Close
     Set Rst = Nothing
    End If
End Function