Function ClearRelations()
Set Relations = CurrentDb().Relations
Do While Relations.Count > 0
Relations.Delete Relations(0).Name
Loop
End Function
Function ClearRelations()
Set Relations = CurrentDb().Relations
Do While Relations.Count > 0
Relations.Delete Relations(0).Name
Loop
End Function