treeview

bonsoir
je suis perdu ,merci de votre aide
j'ai une table, avec les champ ID_Motcle, Valeur12, Valeur22,Valeur32,
Valeur42, Valeur52
le champ ID_Motcle est un champ incremente
Dans le champs Valeur12, j'ai (desParents) comme par exemple Fonction
Dans le Champs Valeur32, j'ai par exemple informatique,etc..
Dans le Champs Valeur42, j'ai par exemple chef de projet,
developpeur,analyste etc..etc
j'ai essaye de faire un treeview qui me hierarchise les differents champs et
il n'y a rien qui apparait
ma connection Mconnect est effectuée avant l'ouverture de cette form et elle
fonctionne

je vous donne un peu de code car je suis completement perdu
merci d'avance

Dim RsFonction As New ADODB.Recordset

Dim NodX As Node ' variable pour le premier noeud
Dim Menu As Control
Dim A As String
Dim B As String
Dim C As String

Public Sub Init_Menu()
Set RsFonction = New ADODB.Recordset
' declaration d'une requete
Dim StrReqFonc As String

On Error Resume Next
Set Menu = Me.TreeView

With Menu.Nodes

StrReqFonc = "SELECT Valeur12,Valeur22 FROM TREELIST " _
& "where valeur12= 'Fonction' group by valeur22"

' remplissage de l'objet recordset
RsFonction.Open StrReqFonc, MConnect, adOpenDynamic, adLockOptimistic,
adCmdText

RsFonction.MoveFirst
Set NodX = .Add(, , "menu", "Liste des fonctions", 3, 4)
Do Until RsFonction.EOF
A = RsFonction.Fields("VALEUR12")
B = RsFonction.Fields("VALEUR12")
C = "menu"
Set NodX = .Add(C, tvwChild, A, B, 3, 4)
NodX.ForeColor = RGB(0, 128, 128)
RsFonction.MoveNext
Loop
RsFonction.Close
Set RsFonction = Nothing

StrReqFonc = "SELECT TREELIST.VALEUR22,treelist.Valeur32 " _
& "group by valeur32,valeur42"
' remplissage de l'objet recordset
RsFonction.Open StrReqFonc, MConnect, adOpenDynamic, adLockOptimistic,
adCmdText

RsFonction.MoveFirst
Do Until RsFonction.EOF
A = RsFonction.Fields("VALEUR12") & RsFonction.Fields("VALEUR22")
B = RsFonction.Fields("VALEUR22")
C = RsFonction.Fields("VALEUR12")
Set NodX = .Add(C, tvwChild, A, B, 3, 4)
NodX.ForeColor = RGB(0, 128, 128)
RsFonction.MoveNext
Loop
RsFonction.Close
Set RsFonction = Nothing


fin_sub:
Set Menu = Nothing
NodX.EnsureVisible
End With
End Sub

Private Sub Form_Load()
Init_Menu
End Sub

merci encore pour votre aide pour l'instant je suis bloque a ce niveau