Validar treeview con visual basic

[yamiblancoc]

hola.... gracias ya lo pude resolver pero tuve que hacer lo siguientee

Código:

Public Sub llena_arbol_p()

    'elimina el nodo actual
    trv_proyectos.Nodes.Clear
    
    'crea el nodo
  'nodo principal
   trv_proyectos.Nodes.Add , , "xmain", an_o_actual
   
  'Primero consulta los proyectos
   Dim rs_proy As New ADODB.Recordset
   Dim obj_proy As New Proy_nvo
   Dim rs_a_p As New ADODB.Recordset
   Dim rs_metas As New ADODB.Recordset
   
   Set rs_proy = obj_proy.Consultar_Proy_POA(an_o_actual)
   Dim clave_p As String
   Dim clave_ae As String
   Dim Clave_meta As String
        
   trv_proyectos.Nodes.Add "xmain", tvwChild, "P_P_P", "PROYECTO", 1
        
   While Not rs_proy.EOF
      
      clave_p = "a" & Trim(rs_proy!proy_cod)
         '***MODIFICADO POR YAMILETH BLANCO CONDICION PARA COLOCAR SOLO EL PROYECTO SELECCIONADO***
         
      If clave_p = "a" & lbl_proy_ac_cod Then
       
      trv_proyectos.Nodes.Add "P_P_P", tvwChild, clave_p, corta_cadena(rs_proy!proy_denominacion), 1
       
      
      'Consulta las acciones por proyecto
      Set rs_a_p = obj_proy.Consulta_Acciones_Proy(Trim(rs_proy!proy_cod))
        While Not rs_a_p.EOF
          clave_ae = "b" & Trim(rs_a_p!acc_cod) & "§" & clave_p
          trv_proyectos.Nodes.Add clave_p, tvwChild, clave_ae, corta_cadena(rs_a_p!acc_nombre), 3
            Set rs_metas = obj_proy.Consulta_Metas_Proy(Trim(rs_proy!proy_cod), Trim(rs_a_p!acc_cod))
               While Not rs_metas.EOF
                 Clave_meta = "m" & Trim(rs_metas!meta_cod) & "§" & clave_ae
                 trv_proyectos.Nodes.Add clave_ae, tvwChild, Clave_meta, corta_cadena(rs_metas!meta_nombre), 4
                 rs_metas.MoveNext
               Wend
          rs_a_p.MoveNext
        Wend
    
      
      End If
      rs_proy.MoveNext
   Wend
   
     'expande el nodo principal
   trv_proyectos.Nodes.Item(1).Expanded = True
   End Sub
   
   '***MODIFICADO POR YAMILETH BLANCO PARA BORRAR EL TREEVIEW ACTUAL Y SOLO CARGAR LAS ACCIONES CENTRALIZADAS***
   
   Public Sub llena_arbol_a()
   
   'elimina el nodo actual
   trv_proyectos.Nodes.Clear
   
  trv_proyectos.Nodes.Add , , "xmain", an_o_actual
   
  'Primero consulta los proyectos
   Dim rs_proy As New ADODB.Recordset
   Dim obj_proy As New Proy_nvo
   Dim rs_a_p As New ADODB.Recordset
   Dim rs_metas As New ADODB.Recordset
   
   Set rs_proy = obj_proy.Consultar_Proy_POA(an_o_actual)
   Dim clave_p As String
   Dim clave_ae As String
   Dim Clave_meta As String
   
   
   Dim rs_ac As New ADODB.Recordset
   Dim obj_ac As New acciones_centralizadas
   Dim clave_a As String
   Dim clave_ace As String
   
   Dim rs_ace As New ADODB.Recordset
   Dim obj_ace As New ac_ace
   
   
   'Consulta las acciones centralizadas
   trv_proyectos.Nodes.Add "xmain", tvwChild, "A_A_A", "ACCIONES CENTRALIZADAS", 2
      
   Set rs_ac = obj_ac.consulta_acciones(an_o_actual)
      
   While Not rs_ac.EOF
     clave_a = "f" & Trim(rs_ac!ac_cod)
     
     '***MODIFICADO POR YAMILETH BLANCO PARA QUE LLAME SOLO LA ACCION QUE SE SELECCIONO***
     
     If clave_a = "f" & lbl_proy_ac_cod Then
     
     trv_proyectos.Nodes.Add "A_A_A", tvwChild, clave_a, corta_cadena(rs_ac!ac_den), 1
     
     Set rs_ace = obj_ace.consulta_ac_acciones_e_POA(rs_ac!ac_cod, an_o_actual)
       
       While Not rs_ace.EOF
         clave_ace = "g" & rs_ace!ace_cod & "§" & clave_a
         trv_proyectos.Nodes.Add clave_a, tvwChild, clave_ace, corta_cadena(rs_ace!ace_den), 3
         rs_ace.MoveNext
       Wend
         
         End If
         
     rs_ac.MoveNext
   Wend
   
  'expande el nodo principal
   trv_proyectos.Nodes.Item(1).Expanded = True
   
End Sub