Public Sub ShowRelations() Dim db As Database Dim relR As Relation Set db = CurrentDb() For Each relR In db.Relations Debug.Print relR.Table & " is related to " & relR.ForeignTable Next End Sub