急~~~~~TreeView问题，35603 无效的关键字

Question

Dim rs As New ADODB.Recordset
    Set rs = New ADODB.Recordset
    
    Dim Xnode As Node
    
    rs.Open "select * from cw_kmgl order by 自身编号", Conn, 1, 3
    If rs.RecordCount <> 0 Then
        While Not rs.EOF
            If rs.Fields("上级编号") = "" Then
                Set Xnode = TreeView1.Nodes.Add(, , "key" & rs.Fields("自身编号"), rs.Fields("自身编号") & "   " & rs.Fields("名称"))
            Else
                Set Xnode = TreeView1.Nodes.Add("key" & rs.Fields("上级编号"), tvwChild, rs.Fields("自身编号"), rs.Fields("自身编号") & "   " & rs.Fields("名称"))
            End If
            rs.MoveNext
        Wend
    End If
    rs.Close总是提示错误35603 无效的关键字1001 现金
1001001 一卡通
1001002 备用金
.
.
.

Answer 1

这句有问题，关键字不允许全部为数字。
Set Xnode = TreeView1.Nodes.Add("key" & rs.Fields("上级编号"), tvwChild, rs.Fields("自身编号"), rs.Fields("自身编号") & "   " & rs.Fields("名称"))改成Set Xnode = TreeView1.Nodes.Add("key" & rs.Fields("上级编号"), tvwChild, "key" & rs.Fields("自身编号"), rs.Fields("自身编号") & "   " & rs.Fields("名称"))

Answer 2

select * from cw_kmgl order by 上级编号,自身编号
  
*****************************************************************************
欢迎使用CSDN论坛专用阅读器 : CSDN Reader(附全部源代码) 最新版本：20070130http://www.cnblogs.com/feiyun0112/archive/2006/09/20/509783.html