Private Sub MenuNewNodeAboveSelected_Click(sender As Object, e As EventArgs) Handles MenuNewNodeAboveSelected.Click
        AddNewNode(0)
    End Sub
 
    Private Sub MenuNewNodeUnderSelected_Click(sender

    Private Sub MenuNewChildNode_Click(sender As Object, e As EventArgs) Handles MenuNewChildNode.Click
        TreeView1.SelectedNode.Nodes.Add("Новый узел")

    Private Sub MenuRemoveSelectedNode_Click(sender As Object, e As EventArgs) Handles MenuRemoveSelectedNode.Click
        If (TreeView1.SelectedNode IsNot Nothing) Then
            TreeView1.Nodes.Remove(TreeView1.SelectedNode)

Imports System.Data.OleDb
Public Class Form1
    Private Function GetDataTable() As DataTable
        Dim

Public Class Form1
    Dim isSelect As Boolean = False

Dim cmd1 as New OleDbCommand("Select * From Table1", OLeDB_Connection)
Dim dAd1 As OleDbDataReader = cmd1.ExecuteReader(CommandBehavior.CloseConnection)