Dim ndx As MSComctlLib.Node
Dim rs As ADODB.Recordset
Dim rs1 As ADODB.Recordset
Dim i As Long
Dim j As Long
With DE
If .rsCommand1.State = adStateOpen Then .rsCommand1.Close
.Command1
.rsCommand1.MoveFirst
Do Until .rsCommand1.EOF
j = j +  1 
Set ndx = TV.Nodes.Add()
ndx.Text = .rsCommand1.Fields("name").Value
ndx.Key = .rsCommand1.Fields("name").Value & j
                Set rs = .rsCommand1.Fields("command2").Value
                    rs.MoveFirst
                Do Until rs.EOF
                i = i +  1 
                        Set ndx = TV.Nodes.Add(.rsCommand1.Fields("name").Value & j, tvwChild)
                        ndx.Text = rs.Fields("sect").Value & ""
                        ndx.Key = rs.Fields("sect").Value & i
                                Set rs1 = .rsCommand1.Fields("command2").Value
                                      rs1.Sort = "Indexn,sect"
                                      rs1.MoveFirst
                                 Do Until rs1.EOF
                                       Set ndx = TV.Nodes.Add(rs.Fields("sect").Value & i, tvwChild)
                                       ndx.Text = rs1.Fields("name").Value & "" ' 
                                       rs1.MoveNext
                                 Loop
                rs.MoveNext
                Loop
.rsCommand1.MoveNext
Loop
.rsCommand1.Close
End With

Set rs = Nothing
Set rs1 = Nothing