[5分]老师辛苦 ，用ado.recordset 怎么显示 找不到元素的错误

Private Sub Command3_Click()
 
     Dim Rst As New ADODB.Recordset
     Dim Sqlstr As String
     Dim Nodx As MSComctlLib.Node
     Dim Keystr As String                       '上级键值
     Me.TreeView2.Nodes.Clear
'     Set Rst = CreateObject("adodb.recordset")
     Sqlstr = "select * from 商品分类表 order by 分类编号"
     Rst.Open Sqlstr, CurrentProject.Connection, adOpenKeyset, adLockReadOnly
'     Rst.MoveNext
     Set Nodx = Me.TreeView2.Nodes.Add(, , "k", "产品分类")
     
     Do Until Rst.EOF
        Keystr = "k" & Left(Rst!分类编号, Len(Rst!分类编号) - 2)
         Me.TreeView2.Nodes.Add Keystr, tvwChild, "k" & Rst!分类编号, Rst!分类名称
     Loop
     Rst.Close
     Set Rst = Nothing
     Set Nodx = Nothing
End Sub