两次while Dr.read()有关问题

两次while Dr.read()问题
<%
                Dim   Str   As   String
                Dim   Sql   As   String
                Dim   Dr   As   OleDbDataReader
                Dim   Cnn   As   OleDbConnection
                Dim   Cmd   As   OleDbCommand
                Dim   Sql1   As   String
                Dim   Cmd1   As   OleDbCommand
                Dim   Dr1   As   OleDbDataReader
                Str   =   "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source= "   &   Server.MapPath( "dbhql/bbs.mdb ")
                Cnn   =   New   OleDbConnection(Str)
                Cnn.Open()
                Sql   =   "select   LB   from   LB "
                Cmd   =   New   OleDbCommand(Sql,   Cnn)
                Dr   =   Cmd.ExecuteReader()
                %>
        <table   align=left   width= "760 "   border= "1 "   bordercolordark= "#33ccff "   bgcolor= "#ffcccc ">
                <%While   Dr.read()   %>
                <tr>
                        <td   background= "images/tb.gif "   align= "left "   style= "height:   27px ">
                <a   href= "bbs.aspx?LB= <%=Dr.GetString(0)%> "> <font   color= "#861E1E "   style= "font-size:12px "> &#9618; <%=Dr.GetString(0)%> &#9618; </font> </a>
                        </td>
                </tr>

                <tr>
                        <td   style= "height:   50px ">
                                <table   width= "760 "   align= "left "   border= "0 "   bordercolordark= "#ff0033 "   bordercolor= "#99cc99 ">
                                        <tr   bgcolor=floralwhite>
                                                <td   style= "width:   63px;   height:   16px ">
                                                </td>