I need to set relationships using vba. However in Access 365 the DAO lib is not working in reference. So I comment out the DIM and then it seems to work. However, the line ".Attributes = dbRelationUpdateCascade + dbRelationDeleteCascade" is NOT working. No error, but no cascading. How can I put then on as well?
And if you have a better option by NOT using DAO of some other trick, that would be great. Hier is the code:

Sub CreateRelationDAO()
Dim db As DAO.Database
Dim rel As DAO.Relation
Dim fld As DAO.Field

'Initialize
Set db = CurrentDb()

'Create a new relation.
Set rel = db.CreateRelation("MyMainTableMyRelatedTable")

'Define its properties.
With rel
'Specify the primary table.
.Table = "MyMainTable"
'Specify the related table.
.ForeignTable = "MyRelatedTable"
'Specify attributes for cascading updates and deletes.
.Attributes = dbRelationUpdateCascade + dbRelationDeleteCascade

'Add the fields to the relation.
'Field name in primary table.
Set fld = .CreateField("MyMainTableID")
'Field name in related table.
fld.ForeignName = "MyForeignKeyID"
'Append the field.
.Fields.Append fld

'Repeat for other fields if a multi-field relation.

End With

'Save the newly defined relation to the Relations collection.
db.Relations.Append rel

'Clean up
Set fld = Nothing
Set rel = Nothing
Set db = Nothing
Debug.Print "Relation created."
End Sub