Дерево и база данных

        'Создание объекта Connection
        Dim cn As System.Data.OleDb.OleDbConnection = New System.Data.OleDb.OleDbConnection
        'Поиск файла "Biblio.mdb" в текущей директории
        Dim s As String
        'Строка подключения
        cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Application.StartupPath & "\12.MDB"
        'Открытие соединения
        cn.Open()
        'Создание объекта Command
        Dim cmd As System.Data.OleDb.OleDbCommand = cn.CreateCommand()
        cmd.CommandText = "SELECT ID, ParentID, KOI FROM tblKOI"
        'Создание объекта DataReader
        Dim rdr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader()
 
        'Вывод результатов
        TreeView1.Nodes.Clear()
        Dim pNode As TreeNode ' parent
        Dim cNode As TreeNode ' child
        Do
            While rdr.Read()
                If rdr.Item(1).ToString = Nothing Then
                    pNode = TreeView1.Nodes.Add(rdr.Item(2).ToString) ' add parent
                    pNode.Tag = rdr.Item(0).ToString
                Else
                    cNode = New TreeNode
                    cNode.Text = rdr.Item(2).ToString
                    cNode.Tag = rdr.Item(0).ToString
                    pNode.Nodes.Add(cNode)
                End If
            End While
        Loop While rdr.NextResult()
        TreeView1.EndUpdate()

cmd.CommandText = "SELECT ID, ParentID, KOI FROM tblKOI"