请问如何使用treeview显示数据库中的内容呢`

Question

Dim rsOtherClass As ADOR.Recordset
            Dim objOther As Object
            Set objOther = CreateObject("StockServer.Other")
            Set rsOtherClass = objOther.TypeList(MProperty.CnnString)            If Not rsOtherClass.EOF Then
                C_DocClass = rsOtherClass("TypeId") '当前类别
                Do While Not rsOtherClass.EOF
                    Set TreeNode = tvwDB.Nodes.Add(, , "OtherClass" & i, Trim(rsOtherClass("TypeName")), "imgBook")
                    TreeNode.Tag = rsOtherClass("TypeId")
                    If i = 0 Then
                        TreeNode.Selected = True
                    End If
                    rsOtherClass.MoveNext
                    i = i + 1
                Loop
                i = 0
                Set rsOtherClass = Nothing
                Set objOther = Nothing
                Call tvwDB_NodeClick(tvwDB.SelectedItem)
            End If