(0x80020009) Exceção.

[Mitchu]

Galera não se o que ta acontecendo

quando coloco o For i = 0 to 3 beleza mais se mudar para For i = 0 to 4 da o erro abaixo

Tipo de erro:

(0x80020009)

Exceção.

/penultimas/Corpo.asp, line 35

alinha que se refere ao erro é <%Do while DataAtual = rsquery("Data")%>

segue o codigo completo abaixo

<%
Corpo = request.QueryString("Corpo")
set Conn=server.CreateObject("ADODB.connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\penultimas\Banco\BancoPenultimas.mdb; User Id=admin; Password=" 

    set rsquery = Conn.execute("select Cod_noticia,Titulo,Noticia,Data,hora from TB_Noticia order by cod_noticia desc")

    If not rsquery.EOF then
               
        For i = 0 to 5
        
            if Not rsquery.EOF then
                    
                DataAtual= rsquery("Data")%>
        
                <tr><td  bgcolor="#339999"><b><%=DataAtual%></b></td></tr>
        
                <%Do while DataAtual = rsquery("Data")%>
                
                    <tr><td bgcolor="#99CC00"><a href="Default.asp?Corpo=<%=rsquery("Cod_noticia")%>"><b><%=rsquery("Titulo")%></b></a></td></tr>                
<%                    if Not rsquery.EOF then
                        rsquery.movenext
                    else
                        Exit Do    
                    end if
                Loop
            else
                Exit For
            end if
        next
    end if


set rsquery = nothing
set Conn = nothing 
%>

[bareta]

<%
Corpo = request.QueryString("Corpo")
set Conn=server.CreateObject("ADODB.connection") 
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=c:\inetpub\wwwroot\penultimas\Banco\BancoPenultimas.mdb; User Id=admin; Password=" 

    set rsquery = Conn.execute("select Cod_noticia,Titulo,Noticia,Data,hora from TB_Noticia order by cod_noticia desc")

    If not rsquery.EOF then
               
                 DataAtual= rsquery("Data")%>
        
                <tr><td  bgcolor="#339999"><b><%=DataAtual%></b></td></tr>
        
                <%while not rsquery.eof%>
                
                    <tr><td bgcolor="#99CC00"><a href="Default.asp?Corpo=<%=rsquery("Cod_noticia")%>"><b><%=rsquery("Titulo")%></b></a></td></tr>                
<%                  
rsquery.movenext
wend

end if

set rsquery = nothing
set Conn = nothing 
%>