TreeView显示数据问题

大家好帮一下，就是在TreeView中不显不数据前置后置都发过来了帮看一下谢谢！

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="Default.aspx.vb" Inherits="_Default" %>

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">

<html xmlns="http://www.w3.org/1999/xhtml" >
<head runat="server">
    <title>无标题页</title>
</head>
<body>
    <form id="form1" runat="server">
    <div>
  <asp:TreeView ID="TreeView1" runat="server">
        </asp:TreeView>

    </div>
    </form>
</body>
</html>

后置

Imports System.Data
Imports System.Data.OleDb
Partial Class _Default
    Inherits System.Web.UI.Page
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As EventArgs) Handles Me.Load
        If Not IsPostBack Then
            Dim sDbPath As String = "App_Data/db_system.mdb"  '"
            Dim sPassword As String = ""
            '    Dim sDbTable As String = "tabItems"
            Dim oConn As OleDbConnection = New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" + Server.MapPath(sDbPath) + ";Password=" + sPassword + ";")
            Dim oDr As OleDbDataReader
            Try
                oConn.Open()
                Dim oCmd As OleDbCommand = New OleDbCommand("select * from tabItems", oConn)  ' + " order by f_level"
                oDr = oCmd.ExecuteReader()

                '定义对象数组
                Dim myNodes() As TreeNode = New TreeNode(100) {}
                '初始化对象数组
                Dim i As Integer
                For i = 0 To myNodes.Length - 1 Step i + 1
                    myNodes(i) = New TreeNode()
                Next
                '从表中取数据
                While oDr.Read()
                    Dim iParentNodeId As Integer = CType(oDr("f_ParentNodeId"), Integer)
                    Dim iMyNodeId As Integer = CType(oDr("f_NodeId"), Integer)
                    If iParentNodeId <> 0 Then
                        myNodes(iMyNodeId).Text = oDr("f_name").ToString()
                        myNodes(iMyNodeId).NavigateUrl = oDr("f_url").ToString()
                        myNodes(iParentNodeId).ChildNodes.Add(myNodes(iMyNodeId))
                    Else
                        myNodes(iMyNodeId).Text = oDr("f_name").ToString()
                        myNodes(iMyNodeId).SelectAction = TreeNodeSelectAction.None
                        TreeView1.Nodes.Add(myNodes(iMyNodeId))
                    End If
                End While
            Catch sqle As System.Exception
                sqle.ToString().Replace("\n", "<br>")
                Response.Write(sqle)
            Finally
                oConn.Close()
            End Try
        End If
    End Sub
End Class
--------------------编程问答-------------------- 占沙发，什么都没显示吗？数据库数据查出来了吗 --------------------编程问答-------------------- 真是不好意思我搞定了 --------------------编程问答--------------------   <asp:TreeView ID="TreeView1" runat="server" DataKeyNames="id">
加这就OK了忘记了嘿嘿 --------------------编程问答-------------------- 100分的悬赏啊，呵呵...搞定就好 --------------------编程问答-------------------- LZ真牛

补充：.NET技术 ,  ASP.NET