خطا از رابطه والد/فرزند دیتاست

[hobab-theme]

سلام دوستان
خیلی سریع میرم سر اصل مطلب
من اول از طریق یه کامپوننت دو تا جدول رو توی یه دیتاست ریختم و کش کردم
بعد بین دوتا دیتاتیبل تو دیتاست یه رابطه والد/فرزند ایجاد کردم و خروجی رو به یه TreeView بایند کردم
ولی وقتی صفحه رفرش میشه ( نه پست بک ) خطا میده و میگه این Relation نام برده قبلاً به این دیتاست تعلق داشته !!!
من کدها رو گذاشتم . اگه لطف کنید یه بررسی کنید ممنون میشم

خطا :

A Relation named 'Children' already belongs to this DataSet

کد برنامه :

<script runat="server">

Private Sub Page_Load()
If Not Page.IsPostBack Then
BuildTree()
End If
End Sub

Sub BuildTree()
' Check for exists the DataSet
Dim intResult As Integer = 0
If IsNothing(Cache("dstProducts")) Then
intResult = Shop.Products()
Else
intResult = 1
End If

If intResult = 1 Then
Dim dstProducts As DataSet = CType(HttpContext.Current.Cache("dstProducts"), DataSet)

' Add a DataRelationd
dstProducts.Relations.Add("Children", dstProducts.Tables("dtblProductsCategories").Columns("CategoryID"), _
dstProducts.Tables("dtblProducts").Columns("ProductCategoryID"))
' Add the Products Category notes
For Each drwCategories As DataRow In dstProducts.Tables("dtblProductsCategories").Rows
Dim catName As String = CType(drwCategories("CategoryName"), String)
Dim catNote As New TreeNode(catName)
treProducts.Nodes.Add(catNote)
' Get matching products
Dim drwProducts() As DataRow = drwCategories.GetChildRows("Children")
For Each drwProduct As DataRow In drwProducts
Dim Name As String = CType(drwProduct("ProductName"), String)
Dim ID As String = CType(drwProduct("ProductID"), String)
Dim productNote As New TreeNode(Name)
catNote.ChildNodes.Add(productNote)
Next
Next
Else
' False
' Perform Messages
End If
End Sub
</script>

با تشکر
موفق باشید