帮帮忙看看这写代码哪里错了？帮忙改一下？

Question

帮帮忙看看这写代码哪里错了？帮忙改一下？
Dim nodX As Node
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)
 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
我这是一个树，我想让子节点显示的是数据库中“bm”表中“bm”字段中的内容。
请各位VB高手帮帮忙，帮小弟改一下。

Answer 1

随便看了一眼，是不是没有Next下移指针

Answer 2

rs.Fields("bm").Value是记录内容而不是字段名（“BM”也是莫名其妙），你循环的条件就不对，应该用字段数而不是判断记录是否处在末尾。

Answer 3

循环中没有rs.Next下移指针很久不用，不记得了，如果最后一个参数是节点key的话都用2就不对了，key是节点唯一标识

Answer 4

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