连接数据库的树？

Question

在VB中怎样将树的父、子节点显示的是数据库中某个字段中的内容？

Answer 1

我这样写有没有错啊？
Dim cn As New ADODb.Connection
Dim rs As New ADODb.Recordset
Dim sql As String
 sql = "select * from bm"
cn.Open Module1.dd
rs.Open sql, cn, 1, 3
Set nodX = TreeView1.Nodes.Add(, , "key0", "企业人事管理", 1)
 Do While Not rs.EOF
  For i = 1 To 7
 Set nodX = TreeView1.Nodes.Add("key0", tvwChild, "key001" & CStr(i), rs.Fields("bm").Value, 2)
 Next
 Loop
我 是初学者，请各位大哥帮帮忙？

Answer 2

i = 1
 Do While Not rs.EOF
 Set nodX = TreeView1.Nodes.Add("key0", tvwChild, "key001" & CStr(i), rs.Fields("bm").Value, 2)
 i = i + 1
 Loop