' Create the relation
Dim dr As New Infragistics.Web.UI.DataSourceControls.DataRelation()
' Specify the parent view in the relation
dr.ParentDataViewID = "SqlDataSource_View1"
' Specify the parent column to use for the relation
dr.ParentColumns = New String() {"RegionID"}
' Specify the child view in the relation
dr.ChildDataViewID = "SqlDataSource_View2"
'Specify the child column to use in the relation
dr.ChildColumns = New String() {"RegionID"}
' Add the relation to WebHierarchicalDataSource
Me.WebHierarchicalDataSource1.DataRelations.Add(dr)