Visual Basic.NET - Sobre treeview y llenar desde una tabla

Hola a todos:

Quiero compartir con todos este fragmento de codigo, ojala les sirva de algo, en mi caso queria tomar de una tabla donde tengo un menu, la tabla tiene un indice del menu y del padre.
Lo uso para llenar el treeview.

Public Sub llenar_arbol()
Dim col As DataRow
Dim nodo As TreeNode()
For Each col In Form1.HotelDataSet.Tmenu1.Rows
'a los nodos padres los tengo con su codpadre=0
If col("codpadre") = 0 Then
Form1.TreeView1.Nodes.Add(Str(col("idmenu")), col("descripcion"))
Else
nodo = Form1.TreeView1.Nodes.Find(Str(col("codpadre")), True)
If nodo.Length > 0 Then
nodo(0).Nodes.Add(Str(col("idmenu")), col("descripcion"))
End If

End If
Next
End Sub