'TreeNode holen und dem TreeView hinzufügen
Public Sub benTreeview_FeldDictionary_anzeigen()
      'trvFeldDict = Name des Treeview
   trvFeldDict.Nodes.Add(modInformixVerbindung.ppFeldDict_trnNode)
   trvFeldDict.CollapseAll()
End Sub

TreeNode wird über den DataReader gefüllt.
Dim trnNode_FeldDict As New TreeNode
Public ReadOnly Property ppFeldDict_trnNode() As TreeNode
 Get
    Return trnNode_FeldDict
 End Get
End Property
 
Public Sub FeldDict_TreeNodes_befuellen(ByVal drFeldDict As _
  OleDb.OleDbDataReader)
 Dim lfdnr As Integer
 Dim Index As String = "", Punkt As String = "", KnPunkt As String = "", _
   UnPunkt As String = ""
 
 Do While drFeldDict.Read
   Punkt = drFeldDict("dict_bereich").ToString
   If KnPunkt = Punkt Then
      Index = Str(drFeldDict("db__seq").ToString)              'Index des 
      ' Unterpunktes bestimmen
 
      UnPunkt = drFeldDict("dict_feldname").ToString           'Name des 
      ' Unterpunktes        
      trnNode_FeldDict.Nodes(lfdnr).Nodes.Add(Index, UnPunkt)  'Uknotenpunkt 
      ' anlegen                
    Else   
       If KnPunkt <> "" Then lfdnr = lfdnr + 1                 'lfdnr 
       ' beginnt bei 0
       KnPunkt = drFeldDict("dict_bereich").ToString
       Index = drFeldDict("dict_bereich").ToString       
       trnNode_FeldDict.Nodes.Add(Index, KnPunkt)              'HauptNode 
       ' anlegen 
 
       Index = Str(drFeldDict("db__seq").ToString)             'Index des 
       ' Unterpunktes bestimmen
       UnPunkt = drFeldDict("dict_feldname").ToString          'Name des 
       ' Unterpunktes
       trnNode_FeldDict.Nodes(lfdnr).Nodes.Add(Index, UnPunkt) 'NodeUnterpunkt
    End If
  Loop
 End Sub