Me.BoAddress1.ParentBusinessObject = Me.BoEmployee1

Dim loRelation As New MicroFour.StrataFrame.Business.BusinessParentRelationship

loRelation.ForeignKeyField() = New String() {"Adr_FK_ID"}

loRelation.ParentPrimaryKeyField() = New String() {"EMP_PK"}

loRelation.ParentBusinessObjectType = "PayrollBO.BOEmployee"

'Set the Relationship

Me.BoContacts1.ParentRelationship = loRelation