请教为什么TreeView无法装载表中的数据

请问为什么TreeView无法装载表中的数据?
在TreeView中，我这样来装载SQLSERVER表中的数据,为什么TreeView每次总是空的，谢谢解答，谢谢

Private   Sub   LoadFromTable()
        Dim   oNodex   As   Node
        Dim   nImage   As   Integer
        Dim   nSelectedImage   As   Integer
        Dim   sNodeTable   As   String
        nImage   =   0
        nSelectedImage   =   0

      TreeView1.Nodes.Clear
        Set   mRS   =   cnMain.Execute( "select   *   From   Tree ")
     
        If   mRS.RecordCount   >   0   Then
                mRS.MoveFirst
                Do   While   mRS.EOF   =   False
                        nImage   =   mRS.Fields( "image ")
                        nSelectedImage   =   mRS.Fields( "selectedimage ")
                        If   Trim(mRS.Fields( "parent "))   =   "0_ "   Then
                                Set   oNodex   =   TreeView1.Nodes.Add(,   1,   Trim(mRS.Fields( "[key] ")),   _
                                    Trim(mRS.Fields( "text ")),   nImage,   nSelectedImage)
                        Else
                                Set   oNodex   =   TreeView1.Nodes.Add(Trim(mRS.Fields( "parent ")),   tvwChild,   _
                                      Trim(mRS.Fields( "[key] ")),   Trim(mRS.Fields( "text ")),   nImage,   nSelectedImage)
                                oNodex.EnsureVisible
                        End   If
                        mRS.MoveNext
                Loop
        End   If
        mRS.Close
End   Sub

------解决方案--------------------
１．你最后一个回复也提到：是在　

Set oNodex = TreeView1.Nodes.Add(, 1, Trim(mRS.Fields( "key ")), _
Trim(mRS.Fields( "text ")), nImage, nSelectedImage)　语句出的问题，　这就对了，　出问题了所以ＡＤＤ不成功啊，因此树节点就看不到！　

２．至于出现
“集合中的关键字不唯一”　的错误，　现在不能判定是　树控件发生的问题还是　数据库发生的问题，　你可以将数据库的记录全部清空了，只留一条记录，再执行这段代码！　如果还发现问题，那就是。。。　再查查，　呵呵