التعامل مع الشجرة وكيفية تعبئتها من الداتا بيز مع اضافة هاندلر

السلام عليكم

ارجو المساعدة فى الكود الاتى

انا اعبىء الشجرة من الداتا بيز

وانشأ حدث عند التعبئة عند ضغط الماوس يأتى ب childs

cmd.CommandText = "select * from ReportType"

cnn.Open()

dr = cmd.ExecuteReader

Dim i As Integer

For i = 1 To 10

TNNameM = "TreeNodeM" + i.ToString + ""

While dr.Read = True

TN = TV1.Nodes.Add(dr("RTNameAR"))

TN.Name = TNNameM

TN.Tag = dr("RTID")

RTID = dr("RTID")

AddHandler TN.TreeView.Click, New EventHandler(AddressOf TNName_click)

End While

Next

dr.Close()

cnn.Close()

وفى الحدث الذى انشأته

Sub TNName_click(ByVal sender As System.Object, ByVal e As System.EventArgs)

Dim cmdRC As New SqlCommand

Dim drRC As SqlDataReader

cmdRC.Connection = con

cmdRC.CommandType = CommandType.Text

Dim s As String

s = TN.TreeView.SelectedNode.Text

cmdRC.CommandText = "Select * From ReportCondtion where RTID=(select RTID from ReportType where RTNameAR='" + s + "')"

con.Open()

drRC = cmdRC.ExecuteReader

Dim z As Integer

For z = 1 To 10

TNNameD = "TreeNodeD" + z.ToString + ""

While drRC.Read = True

TN.Nodes.Add(drRC("RCNameAR"))

End While

Next

drRC.Close()

con.Close()

End Sub

عندى هى فى الكود الذى يجب ان يمرر للمتغير النصى اسم النود يعطى مشكلة

يقول

هنا عند ذلك الكود يقول

s = TN.TreeView.SelectedNode.Text

Object reference not set to an instance of an object.

اريد الحل او طريقة اخرى عند الضغط على النود يمرر للمتغير النصى اسم التكست الخاص بالنود لكى استخدمها فى جملة الاستعلام