Access - Eliminar relacion por codigo

Sub EliminarRelacion()

    Dim db As DAO.Database

    Dim rel As DAO.Relation

    Dim tablaOrigen As String

    Dim tablaDestino As String

    Dim nombreRelacion As String

    ' Nombre de la tabla de origen y destino de la relación

    tablaOrigen = "NombreTablaOrigen"

    tablaDestino = "NombreTablaDestino"

    ' Nombre de la relación a eliminar

    nombreRelacion = "NombreRelacion"

    ' Abre la base de datos actual

    Set db = CurrentDb

    ' Busca la relación por nombre

    On Error Resume Next

    Set rel = db.Relations(nombreRelacion)

    On Error GoTo 0

    ' Si se encontró la relación, elimínala

    If Not rel Is Nothing Then

        db.Relations.Delete nombreRelacion

        Debug.Print "Relación eliminada: " & nombreRelacion

    Else

        Debug.Print "No se encontró la relación: " & nombreRelacion

    End If

    ' Cierra la base de datos

    Set db = Nothing

End Sub