请高手帮忙看一下代码！该如何解决

请高手帮忙看一下代码！
我是想做一个目录树，第一个查询是父节点，用第二个查询的数值在父节点下建子节点。
第一个查询有数据。第二个查询，出不来数据是什么原因？

VB.NET code

Imports System.Data.OleDbPublic Class Form1    Dim data1 As New dataDataSet 'dataDataSet通过数据添加的access2003数据库    Dim reader As DataTableReader    Dim datarow As DataRow    Dim con As New OleDb.OleDbConnection    Dim i, j As Integer    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load        Dim sqlstr As String = "select 所在科室 from jbxx group by 所在科室 having count(*)>1"        Dim datatab As DataTableReader        datatab = conn(sqlstr)        Dim nod(6) As TreeNode        Dim i As Integer        i = 0        While datatab.Read()            i = 1 + i            nod(i) = New TreeNode            nod(i) = TreeView1.Nodes.Add(datatab.GetString(0).ToString)        End While        datatab.Close()        'con.Close()        '第二个查询        sqlstr = "select 所在科室,姓名 from jbxx"        datatab = conn(sqlstr)        TreeView1.Nodes.Add(nod(i).Text)        While datatab.Read() ''这里的值为什么为假？            datatab.GetString(0)            While i = 0 'I已经为6了。                If nod(i).Text = datatab.GetString(0) Then                    nod(i).Nodes.Add(datatab.GetString(1)) '创建第一个查询出来的子节点。                End If                i = i - 1            End While        End While        con.Close()    End Sub    Private Function conn(ByVal sqlstr As String)        con.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data source=D:\temp\aa\data.mdb"        Dim oada As New OleDb.OleDbDataAdapter(sqlstr, con)        con.Open()        Dim ds As New DataSet        oada.Fill(ds)        Return ds.Tables(0).CreateDataReader    End FunctionEnd Class

VB.NET code

 While i = 0 'I已经为6了。  If nod(i).Text = datatab.GetString(0) Then  nod(i).Nodes.Add(datatab.GetString(1)) '创建第一个查询出来的子节点。  End If  i = i - 1  End While
[解决办法]
http://user.qzone.qq.com/631582825/blog/1320153235
这个是我解决问题后的正确源代码。
[解决办法]
http://blog.csdn.net/w200221626/article/details/6699619
看看这个也许会有帮助