Dim tdf As DAO.TableDef
Dim userName As String, myPassword As String
Dim thisDB As DAO.Database
DoCmd.SetWarnings False
DoCmd.Hourglass True

Set thisDB = CurrentDb
 RemoveInvalidRelationships "Linked_FSE_List_Field_Service_Request"

 For Each tdf In CurrentDb.TableDefs

If Left(tdf.Connect, 3) = "ACE" Then
        tdf.RefreshLink
    End If
Next