Sub reconecta(RutaTablas As String) Dim BaseDatos As DAO.Database, ObjetoTablas As DAO.TableDef Dim Contador As Integer Set BaseDatos = CurrentDb For Contador = 0 To BaseDatos.TableDefs.Count - 1 Set ObjetoTabla = BaseDatos.TableDefs(Contador) If Len(ObjetoTabla.Connect) > 0 Then 'Esta es una tabla vinculada ObjetoTabla.Connect = "PWD=Contraseņa;DATABASE=" & RutaTablas Err = 0 On Error Resume Next ObjetoTabla.RefreshLink If Err <> 0 Then Exit Sub End If End If Next End Sub