树结构例子在别的电脑中能正常使用，在我的电脑中不能用

好几个例子在别的电脑中能正常使用，在我的电脑中功却不能全部运行，比如下面的单击节点的事件，我的电脑不能显示“bbb”和右边动态表。

从网上下了多个的树的例子，都是这样，是什么原因，急死我了，求帮助找出原因。例子就不上传了。

Private Sub TreeView0_NodeClick(ByVal Node As Object)

    If Node.Key = "K" Then
        Me.sfrDetail.Form.RecordSource = "SELECT * FROM 产品表 WHERE 1<>1"
        Me.lblNodePath.Caption = ""
MsgBox "aa"
    ElseIf Node.Key <> "K" Then
        Me.sfrDetail.Form.RecordSource = "SELECT * FROM 产品表 WHERE 分类编号 Like '" & Mid(Node.Key, 2) & "*'"
        Me.lblNodePath.Caption = "第" & GetTreeViewNodeLevel(Me.TreeView0.Object, Node) - 1 _
                                & "级分类：" & Node.FullPath
MsgBox "bbb"
    End If
End Sub