Private Sub Treeview1_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
    If (Not (Treeview1.HitTest(X, Y) Is Nothing)) Then
        Treeview1.SelectedItem = Treeview1.HitTest(X, Y)
        st = Treeview1.SelectedItem.Text

    Else
        st =  ""
    End If
        
End Sub

Private Sub Treeview1_OLEDragDrop(data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If Treeview1.DropHighlight Is Nothing Then
        Set Treeview1.DropHighlight = Nothing
        Exit Sub
    ElseIf ((Not (Treeview1.DropHighlight Is Nothing)) And (st <> "  ") And (si <> "  ")) Then
       'Set nodx = TreeView1.Nodes.Add(TreeView1.DropHighlight.Index, 4, , st)
    If Treeview1.DropHighlight.Key Like "id_group*" Then
       ' CurrentProject.Connection.Execute " update dbo.fr_s_tree set idСurator =  " & Replace(TreeView1.DropHighlight.Key, " id_group ", "  ", 1 , , vbTextCompare) & " where id_sotr =  " & si
   CurrentProject.Connection.Execute " insert into dbo.fr_s_tree ( idСurator , id_sotr) values (  " & Replace(Treeview1.DropHighlight.Key, " id_group ", "  ", 1 , , vbTextCompare) & ",  " & si & " ) "
     
    Call Form_Load
    ElseIf Treeview1.DropHighlight.Key Like " id_sotr* " Then
    MsgBox " Добавлять сотрудника можно только к руководителю группы "
    Exit Sub
    ElseIf Treeview1.DropHighlight.Index = 1  Then
    CurrentProject.Connection.Execute "insert into dbo.fr_s_tree (id_fingruop, idСurator , id_sotr) values ( 1 ,  " & si & " ,  " & si & " ) "
      Call Form_Load
    
    
    End If
        nodx.Selected = True: nodx.EnsureVisible
        Set Treeview1.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview1_OLEDragOver(data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    
    Set Treeview1.DropHighlight = Treeview1.HitTest(X, Y)
   
End Sub

Private Sub Treeview2_OLEDragDrop(data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single)
    If TreeView2.DropHighlight Is Nothing Then
        Set TreeView2.DropHighlight = Nothing
        st = "  "
        Exit Sub
    ElseIf ((Not (TreeView2.DropHighlight Is Nothing)) And (st <> "  ")) Then
        Set nodx = TreeView2.Nodes.Add(TreeView2.DropHighlight.Index, 4 , , st)
        nodx.Selected = True: nodx.EnsureVisible
        Set TreeView2.DropHighlight = Nothing
    End If

End Sub

Private Sub Treeview2_OLEDragOver(data As Object, Effect As Long, Button As Integer, Shift As Integer, X As Single, Y As Single, State As Integer)
    Set TreeView2.DropHighlight = TreeView2.HitTest(X, Y)
End Sub
Private Sub Treeview2_MouseDown(ByVal Button As Integer, ByVal Shift As Integer, ByVal X As Long, ByVal Y As Long)
    If (Not (TreeView2.HitTest(X, Y) Is Nothing)) Then
        TreeView2.SelectedItem = TreeView2.HitTest(X, Y)
        st = TreeView2.SelectedItem.Text
        si = Replace(TreeView2.SelectedItem.Key, "id_group ", "  ", , , vbTextCompare)
    Else
        st = "  "
        si = " "
    End If
        
End Sub

set WshShell = WScript.CreateObject( "WScript.Shell" )
WScript.Sleep  1000  
WshShell.Run  "msaccess.exe с\mybase.mdb"