Private Sub rel()
    Dim r                          As DAO.Relation
    On Error Resume Next
    For Each r In CurrentDb.Relations
        err.clear
        CurrentDb.Relations.Delete r.Name
        If err.Number <>  0  Then
            Debug.Print  "Связь не удалилась! "  & r.Name &  " .Таблиц "  & r.Table &  " , связанной с "  & r.ForeignTable &  " Ошибка "  & err.Number &  " ("  & err.Description &  ")" 
        Else
            Debug.Print  "Удалилась   связь с именем "  & r.Name &  " .Таблиц "  & r.Table &  " , связанной с "  & r.ForeignTable
        End If
    Next r
End Sub