Private Sub Form_Load()  
    Dim rs As New ADODB.Recordset '声明认识rs为记录集对象
    Sql = "select havetest from tb_user where usertype=0" & _
        "and userid='" & UsId & "'" '把查询是否参加考试的标识字段赋给变量Sql
    rs.Open Sql, cnn, adOpenStatic, adLockReadOnly '执行SQL语句
    HaveTest = rs.Fields("HaveTest")
    ShowButton
Dim nodX As Node
Set nodX = TreeView1.Nodes.Add(, , "X1", "课程概述", 1)
Set nodX = TreeView1.Nodes.Add(, , "X2", "学习要求", 1)
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C1", "学习目标", 2)
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C2", "学习重点", 2)
Set nodX = TreeView1.Nodes.Add("X2", tvwChild, "C3", "学习难点", 2)   
End Sub   出现错误key is not in unique collection
         如何调试

你看一下你写的书控件

什么意思？树控件和这个有什么样的关系呀？小弟初学，还望高手详加赐教！！！万分感谢！

出现重复，查询不全，应改为"select * from tb_user where usertype=0" & _
        "and userid='" & UsId & "'" '把查询是否参加考试的标识字段赋给变量Sql
         rs.Open Sql, cnn, adOpenStatic, adLockReadOnly '执行SQL语句
         HaveTest = rs.Fields("HaveTest")

您好！感谢您的回答，但是我试了下，还是同样的提示，不过还是谢谢你！！！

我觉得跟用户登录关系不大吧。。。。