Private Sub TreeView1_NodeClick(ByVal Node As MSComctlLib.Node)
 
  Dim NK As String
  Dim PK As String
  Dim sqlFilter As String
  Dim nChilds As Long
 
  nChilds = Node.Children
 
  Label1.Caption = Node.Text
 
  NK = Node.Key
 
  Dim oChild As Node
 
  If nChilds > 0 Then
    With Node
      If .Children > 0 Then
        Set oChild = .Child
        Do
          sqlFilter = sqlFilter & " or GruppenKey = '" & oChild.Key & "' "
          Set oChild = oChild.Next
        Loop Until oChild Is Nothing
      End If
    End With
  End If
 
  If Node.Children = 0 Then
    pRST.Close
    pRST.Open "SELECT * FROM tbl2LV WHERE GruppenKey = '" & NK & "' ", oConn
    'ID,GID,SGID,PIndex,Bezeichnung,Menge,Einh,ZA_a_Std,MK_a,EL_a,EP1_a
  Else
    pRST.Close
    pRST.Open "SELECT * FROM tbl2LV WHERE GruppenKey = '" & NK & "' " & _
      sqlFilter, oConn
  End If
 
    With GridView
      .Refresh
      .Row = 1
    End With
 
End Sub