Public Class Form1
    Inherits System.Windows.Forms.Form
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As _
      System.EventArgs) Handles Button1.Click
        Dim dt As DataTable = New DataTable("TreeView")
        Me.FillDataTable(dt)
        Me.FillTreeView(dt)
        Me.TreeView1.ExpandAll()
    End Sub
    Public Sub FillDataTable(ByRef dt As DataTable)
        Try
            Dim sCN As String = "Provider=Microsoft.Jet.OLEDB.4.0;Data" & _
              "Source=TreeView.mdb;User ID=;Password="
            Dim sql As String = "SELECT * FROM TreeView ORDER BY ID"
            Dim cn As OleDb.OleDbConnection = New OleDb.OleDbConnection(sCN)
            Dim da As OleDb.OleDbDataAdapter = New OleDb.OleDbDataAdapter(sql, _
              cn)
            Dim cmd As OleDb.OleDbCommandBuilder = New _
            OleDb.OleDbCommandBuilder(da)
            da.Fill(dt)
        Catch ex As OleDb.OleDbException
            MsgBox(ex.Message)
        End Try
    End Sub
    Public Sub FillTreeView(ByVal dt As DataTable)
        Me.TreeView1.BeginUpdate()
        Dim ParentId As Integer
        Dim Tn As TreeNode
        For Each r As DataRow In dt.Rows
            Tn = New TreeNode((r("Text").ToString) + " - " + (r( _
              "Tag").ToString))
            Tn.Tag = (r("Tag").ToString)
            If Convert.ToInt32(r("ParentID")) = 0 Then
                Me.TreeView1.Nodes.Add(Tn)
            End If
            FillTreeNode_Sub(Tn, dt, Convert.ToInt32(r("ID")))
        Next
        Me.TreeView1.EndUpdate()
    End Sub
    Public Sub FillTreeNode_Sub(ByRef tn As TreeNode, ByRef dt As DataTable, _
      ByVal ID As Integer)
        Dim foundRows() As DataRow = dt.Select("ParentID = " + ID.ToString, _
        "ID")
        Dim Tn_Sub As TreeNode
        For Each _r As DataRow In foundRows
            Tn_Sub = New TreeNode((_r("Text").ToString) + " - " + (_r( _
              "Tag").ToString))
            Tn_Sub.Tag = (_r("Tag").ToString)
            tn.Nodes.Add(Tn_Sub)
            FillTreeNode_Sub(Tn_Sub, dt, Convert.ToInt32(_r("ID")))
        Next
    End Sub
End Class