Relaciones en un dataset

Buenas tengo problemas para eliminar relaciones de un dataset. La verdad
es
que me sucede algo raro. Os lo esplico detalladamente sobre el codigo:

Bueno, pues resulta que en este momento el dataset dice que no tiene
ninguna
relacion.

Dim dr As New DataRelation("Codigo", ds.Tables(0).Columns(0),
ds.Tables(1).Columns(2))

Aqui dice que tiene una relacion que se llama "Codigo" ( Si os fijais aun
no
la he añadido al dataset)

Dim dr1 As New DataRelation("Codigo1", ds.Tables(0).Columns(0),
ds.Tables(1).Columns(3))


Aqui me dice que sigue teniendo una sola relacion.


ds.Relations.CanRemove(dr)

Aqui dice que la famosa relacion que ha aparecido de la nada se puede
borrar. Pues nada, vamos a ello.

ds.Relations.Remove(dr)
ds.AcceptChanges()

Aqui dice que la relacion sigue estando donde estaba, y como os podeis
imaginar en la siguiente intruccion me lanza una excepcion diciendo que no
se
puede añadir dicha relacion porque ya existe.

ds.Relations.Add(dr)
ds.Relations.Add(dr1)

He probado el metodo ds.Relations.Clear , el metodo
ds.Relations.RemoveAt()
y he probado de todo.

En primer lugar ya es raro que aparezca una relacion de la nada y despues
el
hecho de que no se pueda borrar cuando el metodo CanRemove() me devuleve
un
valor True.

Si alguien tiene conocimiento de esta serie de echos PARANORMALES! por
favor
que me explique lo que esta pasando poruqe creo que voy a epmezar a creer
en
los fantasmas.

Gracias por leer este toston.
Un saludo