Public Sub fillBaum()
		'=============================================================
		'Befüllt das TreeView Steuerelement
		'=============================================================
		Try
			Me.fillKnoten(ObersteEbene:=True)
		Catch ex As Exception
			Throw New MyException(Me.GetType.Name & "/fillBaum", ex)
		Finally
 
		End Try
	End Sub
 
 
	Public Sub fillKnoten(Optional ByVal tn As TreeNode = Nothing, Optional ByVal _
  ObersteEbene As Boolean = False)
		'=============================================================
		'Füllt zu einem Knoten die Unterknoten auf
		'=============================================================
		Dim dt As New DataTable()
		Dim tnUnter As TreeNode
		Dim dr As DataRow
		Dim sql$
 
		Try
			If ObersteEbene Then
				sql = getSelectObersteEbene()
			Else
				sql = getSelectUnterEbene(tn)
			End If
			'---- sql ist Nothing, wenn es keine weitere Verzweigung in die Tiefe mehr 
' gibt
			If Not sql = Nothing Then
				dt = … ‘DataTable mit den Unterknoten erzeugen
				For Each dr In dt.Rows
					tnUnter = New TreeNode()
					With tnUnter
						.Tag = getNodeTag(dr(0).ToString, dr(1).ToString)
						.Text = getNodeText(dr(0).ToString, dr(2).ToString)
					End With
					If ObersteEbene Then
						' Falls Unterebenen existieren, dann wird ein leeres Blatt
						' angefügt, um das +-Zeichen zu provozieren
						If ObersteEbene Then If dr(3) > 0 Then addLeeresBlatt(tnUnter)
						tv.Nodes.Add(tnUnter)
					Else
						'---- eine Unterebene----------------
						tn.Nodes.Add(tnUnter)
						fillKnoten(tnUnter)
					End If
				Next
			End If
		Catch ex As Exception
			Throw New MyException(Me.GetType.Name & "/fillKnoten", ex)
		End Try
 
	End Sub