asp.net2.0(vb) access读取操作

web.config: 

<connectionStrings>
  <add name="NDFConn" connectionString="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\NDF#Data.mdb;Persist Security Info=True" providerName="System.Data.OleDb"/>
 </connectionStrings>

-------------------------------------------
文件代码：

Partial Class Left_sort
    Inherits System.Web.UI.UserControl
    Private strConn As String = System.Configuration.ConfigurationManager.ConnectionStrings("ndfconn").ToString
    Private DBconn As OleDbConnection
    Private DBComm As OleDbCommand
    Private Dr As OleDbDataReader
    Private DBconn2 As OleDbConnection
    Private DBComm2 As OleDbCommand
    Private Dr2 As OleDbDataReader
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        LeftSort()
    End Sub
    Function LeftSort()
        Dim Tr As New TableRow
        Dim Td As New TableCell
        Dim I As Integer
        Dim S As String

        DBconn = New OleDbConnection(strConn)
        DBComm = New OleDbCommand("select  * from sort", DBconn)
        DBconn.Open()
        Dr = DBComm.ExecuteReader
        While Dr.Read
            Td = New TableCell
            'Td.ID = "Left_Td"
            'Td.CssClass = "Bold"
            Td.Text = "<a href=""List.aspx?Sort=" & Dr("id") & """ class=""LBig"">" & Dr("name") & "</a>"
            Tr = New TableRow
            Tr.Cells.Add(Td)
            Left_sort1.Rows.Add(Tr)

            DBconn2 = New OleDbConnection(strConn)
            DBComm2 = New OleDbCommand("select  * from sorts where [sort]= " & Dr("id") & " ", DBconn2)
            DBconn2.Open()
            Dr2 = DBComm2.ExecuteReader
            While Dr2.Read
                S = S & Dr2("name")
                Td = New TableCell
                'Td.ID = "Left_Td" & I

                Td.Text = "<a href=""List.aspx?Sort=" & Dr("id") & "&Sorts=" & Dr2("id") & """ >" & Dr2("name") & "</a>"
                Tr = New TableRow
                Tr.Cells.Add(Td)
                Left_sort1.Rows.Add(Tr)
            End While
            Dr2.Close()
            DBconn2.Close()

        End While
        Dr.Close()
        DBconn.Close()
    End Function