Utilisation TreeView VB 6.0

Bonjour,

J'ai quelques difficultés dans l'utilisation d'un TreeViewCtl sous VB 6.0.
En fait, je souhaite afficher l'arborescence suivante :

Parent1
+---Enfant1
+---Enfant2
Parent2
+---Enfant1
...

Le code suivant me donne bien ce que je veux, par contre les noeuds enfants
ne sont pas visibles, je dois cliquer sur le noeud parent pour qu'ils
s'affichent :
--------------------------
Dim SqlRequest, skey1, skey2 As String
Dim I As Long
Dim ParentNode As Nodes
Dim ChildNode As Nodes

Set rs = CreateObject("ADOCE.Recordset.3.1")
...

skey1 = "toto"
skey2 = "toto1"

I = 1
Do While (Not rs.EOF)
Set ParentNode = TreeViewCtl1.Nodes.Add(, tvwLast,
CStr(rs.Fields("pal_id").Value), CStr(rs.Fields("pal_id").Value))
Set ChildNode =
TreeViewCtl1.Nodes.Add(CStr(rs.Fields("pal_id").Value), tvwChild,
CStr(rs.Fields("pal_id").Value) & skey1, CStr(rs.Fields("pal_emp").Value), 1,
2)
TreeViewCtl1.Nodes.Add CStr(rs.Fields("pal_id").Value), tvwChild,
CStr(rs.Fields("pal_id").Value) & skey2, CStr(rs.Fields("pal_mag").Value), 1,
2
rs.MoveNext
I = I + 1
Loop
--------------------------
De plus dans le code suivant, je ne sais pas quel doit être le premier
argument à passer :
Set ParentNode = TreeViewCtl1.Nodes.Add(, tvwLast,
CStr(rs.Fields("pal_id").Value), CStr(rs.Fields("pal_id").Value))

Si je n'indique rien, je n'ai pas d'erreur, mais il faut indiquer un noeud
racine je pense ?

Merci d'avance pour toute réponse.