Public Sub tvw_fill()
        Form1.InstForm1.tvw_vorlagen.Nodes.Clear()
        Dim anode As New Kontakt_Treenode(k_id, kname, kvname, kfirma, _
               ktel, kemail, kanred_id)
        Dim znode As New Kontakt_Treenode(k_id, kname, kvname, kfirma, _
               ktel, kemail, kanred_id)
        anode.Nodes.Clear()
        znode.Nodes.Clear()
        For Each dr1 As DataRow In tabkontakt.Rows
            k_id = dr1(0)
            kname = dr1(1)
            kvname = dr1(2)
            kfirma = dr1(3)
            ktel = dr1(4)
            kemail = dr1(5)
            kanred_id = dr1(6)
            z1 = kname.Substring(0, 1)
            If z2 <> z1 Then
                anode.Text = z1
                Form1.InstForm1.tvw_vorlagen.Nodes.Add(anode)
                znode.Text = kname & "," & kvname
                anode.Nodes.Add(znode)
            Else
                znode.Text = kname & "," & kvname
                anode.Nodes.Add(znode)
            End If
            z2 = z1
        Next
    End Sub