Llenar un treeview desde una tabla en SQL

[navileben]

Hola a todos y todas
quiero llenar un treeview con los datos de una tabla en SQL2005 pero solo conguigo llenar los datos padres pero los nodos hijos no se añaden dentro de los padres sino en el nodo principal.... espero q me puedan ayudar ahi les envio mi codigo para ver donde estoy fallando... toda sugerencia sera muy bien recibida

Sub llenaArbol()
Dim oNode As TreeNode
Dim nodoPadre As TreeNode
Dim nodoHijo As TreeNode
Dim conn As New SqlConnection(conexion)

Dim sql As String = "Select * FROM Ge_CATALOGO_MAPAS ORDER BY DOMI_CODIGO"
Dim cmd As SqlCommand
Dim drArbol As SqlDataReader
DAPerfil = New SqlDataAdapter(sql, conn)
cmd = New SqlCommand(sql, conn)
conn.Open()
drArbol = cmd.ExecuteReader
TreeView1.Nodes.Clear()
TreeView1.Nodes.Add("Catalogo SIG-CONELEC")

With drArbol

Do While .Read
oNode = New TreeNode
nodoPadre = New TreeNode
nodoHijo = New TreeNode

oNode.Tag = .Item("DOMI_CODIGO").ToString oNode.Text = .Item("DOMI_DESCRIPCION").ToString nodoHijo.Tag = .Item("DOMI_CODIGO").ToString
nodoHijo.Text = .Item("DOMI_DESCRIPCION").ToString
nodoHijo.Tag = .Item("DOMI_RELACION").ToString
If Len(.Item("DOMI_CODIGO").ToString.Trim) = 2 Then
TreeView1.Nodes(0).Nodes.Add(oNode)

Else
If Len(.Item("DOMI_CODIGO").ToString.Trim) = 4 & nodoHijo.Tag = "SubNodo" Then
TreeView1.Nodes(0).Nodes.Add(nodoHijo)

End If
End If

Loop

End With
DAPerfil.Dispose()
End Sub