Erro no While!

Fiz o seguinte código para dar while nas informações do meu banco de dados em MDB.

preciso só que eles sejam exibidos um embaixo do outro.

<%
sql = "Select * From news"
Set rs = Cn.Execute(sql)
%>
<%
While Not rs.bof or rs.eof
codigo = rs("tipo")

	response.Write codigo & ("<br />")
	rs.MoveNext
	Wend

%>
Ai aparece o seguinte erro, que nunca eu vi, desde q eu programo em ASP.

>
ADODB.Field error '800a0bcd'

Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.

/hot_site/SQL_transfer.asp, line 15

Alguém pode me ajudar.

Abraço a todos.