江湖告急啊!~关于VB树状结构查询问题

我要用VB的树状结构查询数据库!~数据结构如下图

最终软件运行结果如下图

我要点击左边不同的选项,在右边的Text窗口显示不同的内容,就这么简单~~~

希望各位VB大侠能帮帮小弟度过难关啊```

节点点击事件

Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
Set rs = New ADODB.Recordset
Dim str As String
If TreeView1.selectedItem.children = 0 Then '检查是否有子节点,0为无

For i = 1 To TreeView1.Nodes.Count
If TreeView1.Nodes(i).Selected Then
Dim j As Integer
Dim s As String
Dim Ndname As String
s = TreeView1.selectedItem.FullPath
j = InStr(1, s, "\")
Ndname = Right(s, Len(s) - InStr(1, s, "\"))

str = "select paravalue from parameter where paraNAME='" & Ndname & "'"
rs.Open str, cnn, adOpenStatic
Text1.Text = rs.Fields(0)

'刷新右侧TEXT信息

End If
Next i
End If
End Sub