Imports System.Data.OleDb
Public Class Form1
    Private Function GetDataTable() As DataTable
        Dim cnn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\Test.mdb")
        Dim dAdapter As New OleDbDataAdapter("Select ID, Product, ParentID, ProductType From TableProduct", cnn)
        Dim rows As Integer
        Dim tblTemp

Public Class Form1
    Dim isSelect As Boolean = False
    Dim outRectangle As New Rectangle(New Point(0, 0), New Size(0, 0))
    Dim inRectangle As New Rectangle(New Point(0, 0), New Size(0, 0))
    Dim startPoint As Point
    Dim flgDirection As Boolean
    Dim graph As Graphics
    Dim controlTV As Control

Dim cmd1 as New OleDbCommand("Select * From Table1", OLeDB_Connection)
Dim dAd1 As OleDbDataReader = cmd1.ExecuteReader(CommandBehavior.CloseConnection)
            tvRoot = Me.ctlTreeView.Nodes.Add("#0", ActiveProject)
            tvRoot.Tag = "Root"
            While dAd1.Read
                Application.DoEvents()
                    Folder_Id = dAd1.GetValue(0)