MS Access | ADO | Удалить связь

'удаление связи (Table1 и Table2) - ADO

Sub DeleteRalation_ADO()

Dim db As ADOX.Catalog, key As ADOX.key

Set db = New ADOX.Catalog

db.ActiveConnection = CurrentProject.Connection

For Each key In db.Tables("Table2").Keys

  If key.RelatedTable = "Table1" Then

       db.Tables("Table2").Keys.Delete key.Name

      Exit Sub

  End If

Next

End Sub