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

急~~~~~TreeView问题，35603 无效的关键字
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   备用金
.
.
.


------解决方案--------------------
这句有问题，关键字不允许全部为数字。
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( "名称 "))