While dbDR.Read
            ' das funktioniert aber zu langsam
            node = New TreeNode(dbDR("Hauptnode"))
            node.Tag = dbDR("id")
            TreeView1.Nodes.Add(node)
 
'das nicht
            '########## Databinding Test #########
            Dim test As Binding
            test = New Binding("text", dbDR, "Hauptnode")  '<-- hier die 
            ' Fehlermeldung
 
            TreeView1.DataBindings.Add(test)
            '####################################
End While