Dim rs1 As New ADODB.Recordset
Private nod As Node
----------------------------------------------------------------------------------------------------------------------------
Private Sub Form_Load()
Dim node1 As Node
Dim node2 As Node
Dim node3 As Node
 Dim key, text As String
 Dim nod As Node
 Adodc1.RecordSource = "select * from p_xlkind order by spxlcode"
 Adodc1.Refresh
 If Adodc1.Recordset.RecordCount > 0 Then
  Adodc1.Recordset.MoveFirst
  Do While Adodc1.Recordset.EOF = False
   If Len(Trim(Adodc1.Recordset.Fields("spxlcode"))) = 2 Then
      key = Trim(Adodc1.Recordset.Fields("spxlcode"))
      text = "(" & Trim(Adodc1.Recordset.Fields("spxlcode")) & ")" & Trim(Adodc1.Recordset.Fields("sspxl"))
     Set node1 = TreeView1.Nodes.Add(, , key, text, 1)
   End If
   If Len(Trim(Adodc1.Recordset.Fields("spxlcode"))) = 4 Then
      key = Trim(Adodc1.Recordset.Fields("spxlcode"))
      text = "(" & Trim(Adodc1.Recordset.Fields("spxlcode")) & ")" & Trim(Adodc1.Recordset.Fields("sspxl"))
      Set node2 = TreeView1.Nodes.Add(node1.Index, tvwChild, key, text, 2)
   End If
   If Len(Trim(Adodc1.Recordset.Fields("spxlcode"))) = 6 Then
      key = Trim(Adodc1.Recordset.Fields("spxlcode"))
      text = "(" & Trim(Adodc1.Recordset.Fields("spxlcode")) & ")" & Trim(Adodc1.Recordset.Fields("sspxl"))
      Set node3 = TreeView1.Nodes.Add(node2.Index, tvwChild, key, text, 3)
   End If
   Adodc1.Recordset.MoveNext
  Loop
End If
End Sub