Se repite Nodo en TreeView

[Giufantasy]

Estimados:
Estoy trabajando en vb.net con sqlServer 2000 y cargo el treeView con este codigo sin ningun problema, Lo que pasa es que cuando lo cargo
se repite el nodo padre,

Ejemplo:
En mi base de datos tengo un menu que tiene 2 formularios asociados,
deberia mostrarme
.............MENU
.................formulario 1
.................formulartio2

y me muestra

.............MENU
.................formulario 1
.................formulartio2
.............MENU
.................formulario 1
.................formulartio2


este es el codigo de mi TreeView,
COMO LO HAGO PARA QUE NO SE REPITA EL NODO???????????

'CARGANDO EL TREEVIEW CON EL INICIO DEL FORMULARIO

' crear conexión
Dim cadena As String
cadena = "Data Source = BRAVO; Initial Catalog = dbmultiusuario; Integrated Security=SSPI; Trusted_Connection=false; user id = glopez ; Password = lopez"
Dim cnn As New SqlConnection(cadena)
Dim variable As String
variable = Me.TVFormulario.Text

' crear los DataAdapter
Dim oDAMenu As New SqlDataAdapter("select m.idmenu, f.codigo_form FROM FORMULARIO f, SISTEMA s, MENU m WHERE (s.idsistema = f.idsistema) and (m.idsistema = s.idsistema) and f.idsistema = '" & Me.TxtCodigoSistemaFormulario.Text & "'", cnn)

' crear conjunto de datos
Dim oDataSet As New DataSet

' utilizar los adaptadores para llenar el dataset con las tabla
oDAMenu.Fill(oDataSet, "MENU")
'oDAFormulario.Fill(oDataSet, "FORMULARIOS")

' defino variables del tipo DataTable
Dim oTablaMenu As New DataTable
'Dim oTablaFormulario As DataTable

' asigno a las variables los datos de las tablas del DataSet
oTablaMenu = oDataSet.Tables(0)
'oTablaFormulario = oDataSet.Tables("FORMULARIOS")

Dim oVista As DataView

' lleno la vista con el contenido de la Tabla MENU
'oVista = oDataSet.Tables("MENU").DefaultView
oVista = oTablaMenu.DefaultView

' deshabilita la actualización en pantalla del control TreeView
TVFormulario.BeginUpdate()

' defino variable del tipo DataRow
'Dim Registro As DataRow

'Declarando el Nodo
Dim nodo As New TreeNode

' creo un nodo raiz (el nombre Country, puede ser cualquier texto como Raíz, Root, etc.)
nodo = TVFormulario.Nodes.Add("Sistema")

'For Each Registro In oTablaMenu.Rows
For Each Registro As DataRow In oTablaMenu.Rows
' agrego el nodo en el segundo nivel
nodo = TVFormulario.Nodes(0).Nodes.Add(Registro("IDMENU") .Trim())
' si no hay un nodo raiz, se usaría la siguiente línea
'nodo = TVFormulario.Nodes.Add(Trim(Registro("CARGA")))

' realizo un filtro dentro de la vista
oVista.RowFilter = "IDMENU = '" & Registro("IDMENU") + "'"

' ciclo para recorrer la vista previamente filtrada
Dim a As Integer
For a = 0 To oVista.Count - 1
' agrego el nodo en el tercer nivel
nodo.Nodes.Add(Trim(oVista.Item(a).Row("CODIGO_FOR M")))

Next
'Para que no se Repita los Nodos Pricipales

' expando todos los nodos de árbol secundario
nodo.ExpandAll()
Next
' habilita la actualización en pantalla del control TreeView
TVFormulario.EndUpdate()

' modifico la propiedad AllowDrop a True para poder realizar Drag and Drop
TVFormulario.AllowDrop = True

' modifico la propiedad Sorted a True para que los nodos estén ordenados
TVFormulario.Sorted = True


SALUDOS