pROBLEMAS CON TREEvIEW

[Giufantasy]

Amigo tengo que llenarlo EN UN TREEVIEW...

LO QUE EXPLIQUE MAS ARRIBA Y NO HE PODIDO

ESTE ES EL CODIGO QUE TENGO, PERO NO PUEDO PORQUE ME MUESTRA SOLO LOS DE UNA TABLA

*********** CHEQUEN LA CONSULTA ****************

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 idsistema As String
idsistema = Me.TxtCodigoSistemaFormulario.Text
Dim consulta As String
consulta = "SELECT M.IDMENU, F.CODIGO_FORM FROM MENU M, FORMULARIO F, SISTEMA S WHERE (S.EMPRESA = M.EMPRESA) AND (S.EMPRESA = F.EMPRESA) AND (S.IDSISTEMA = F.IDSISTEMA) AND (S.IDSISTEMA = M.IDSISTEMA) AND M.EMPRESA = '02' AND M.IDSISTEMA = '" & idsistema & "'"

''''''''ADAPTADORES
daMenu = New SqlDataAdapter("select * from MENU", cnn)
daFormularios = New SqlDataAdapter("Select * from FORMULARIO", cnn)
daConsulta = New SqlDataAdapter("SELECT M.IDMENU, F.CODIGO_FORM FROM MENU M, FORMULARIO F, SISTEMA S WHERE (S.EMPRESA = M.EMPRESA) AND (S.EMPRESA = F.EMPRESA) AND (S.IDSISTEMA = F.IDSISTEMA) AND (S.IDSISTEMA = M.IDSISTEMA) AND M.EMPRESA = '02' AND M.IDSISTEMA = '" & idsistema & "'", cnn)

''''''''DATASET
dsdatos = New DataSet

''''''''LLAMAR AL DATASET
daMenu.Fill(dsdatos, "MENU")
daFormularios.Fill(dsdatos, "FORMULARIO")
daConsulta.Fill(dsdatos, "FORMULARIO")
daConsulta.SelectCommand.CommandText = "Select * from MENU"
daConsulta.Fill(dsdatos, "MENU")
daConsulta.SelectCommand.CommandText = "Select * from SISTEMA"
daConsulta.Fill(dsdatos, "SISTEMA")

''''''''COMO LO VEREMOS
dvResultado = dsdatos.Tables("MENU").DefaultView

''''''''EL TREEVIEW - NODO RAIZ
Me.TVFormulario.Nodes.Add("SELECCIONAR")

''''''''LLENAR EL TREEVIEW
Dim dr As DataRow
Dim nodo As TreeNode
For Each dr In dsdatos.Tables("MENU").Rows

'''''''''LLENAR TODOS LOS MENU CON SUS ID
nodo = TVFormulario.Nodes(0).Nodes.Add(dr("IDMENU"))

'''''''''LLENAR LOS FORMULARIOS DE CADA MENU
dvResultado.RowFilter = "INDICE = " & dr("INDICE")
Dim i As Integer
For i = 0 To dvResultado.Count - 1
nodo.Nodes.Add(dvResultado.Item(i).Row("CODIGO_FOR M"))
Next

Next