dato non trovato visualizzare messaggio di errore

[djjunior]

Carissimi,
ho questo script ma se non trova il dato non mi visualzza il messaggio di errore ma:

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

Dove sbaglio?

<select size="1" name="con">
<option value="">Seleziona</option> 
<%
sql = "SELECT * FROM ese WHERE codice = '" & request.form("condo") &"'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 3, 3

If rs.EOF Then
%>

<font face="Tahoma" size="2">[b]Nessun dato disponibile[b]</font>
<%
else
Do While Not rs.EOF	
%>
<option value="<%=rs("ese")%>"><%=rs("ese")%></option> 
<%
rs.MoveNext
Loop
end if
rs.Close
set rs = Nothing
%>							
</select>

Grazie
G.