MSysRelationships - Access 97 *RESOLVED*

How do I change/delete this object through code. I need to change the permissions in order to access this object first of all. Ok so I've manually done that but this database still considers itself read-only. I need to copy the relationships from one database to another but this object is really frustrating me.

Thanks

Don't worry about it. I took care of it myself.

VB Code:

Public Sub CopyRelations()
Dim dBase As Database, dBase2 As Database
Dim tmpRelation As Relation, newrel As Relation
Dim fld As Field, newfld As Field
 
Set dBase = CurrentDb
Set dBase2 = OpenDatabase(strFileLocation)
 
 
For Each tmpRelation In dBase.Relations
     Set newrel = dBase2.CreateRelation(tmpRelation.Name, tmpRelation.Table, tmpRelation.ForeignTable, tmpRelation.Attributes)
     
     For Each fld In tmpRelation.Fields
          Set newfld = newrel.CreateField(fld.Name)
          newfld.ForeignName = fld.ForeignName
          newrel.Fields.Append newfld
     Next
     dBase2.Relations.Append newrel
Next
 
End Sub