[5分]请教红尘如烟老师一个树控件问题

在你的《【Access源码示例】数据很多时TreeView动态加载节点及分类查询示例 》一文中有这样一段代码，本人始终不理解

Sub LoadNodes(Node As Object)
    Dim objTree     As Object 'TreeView
    Dim objNode     As Object 'Node
    Dim lngI        As Long
        Set objTree = Me.TreeView0.Object
    If Node.Children = 0 Then LoadNodeChilds objTree, Node
    For lngI = Node.Child.Index To Node.Child.Index + Node.Children - 1
        If objTree.Nodes(lngI).Children = 0 Then LoadNodeChilds objTree, objTree.Nodes(lngI)
    Next
End Sub

还有 Me.sfrDetail.Form.RecordSource = "SELECT * FROM 产品表 WHERE 1<>1 条件明知不成立，为什么还在写呢？

Me.sfrDetail.Form.RecordSource = "SELECT * FROM 产品表 WHERE 分类编号 Like '" & Mid(Node.Key, 2) & "*' 这个 Mid(Node.Key, 2) 又是取到什么值呢？

敬请刘老师解答。本人非常非常地感激不尽。