Non capisco perché non funziona!

codice:
CODPART = Request.Querystring("PART")
CODARR = Request.Querystring("ARR")
set my_Conn = Server.CreateObject("ADODB.Connection")
my_Conn.Open strConnString
set srst = my_conn.execute("SELECT * FROM tabella WHERE CODPART = '" & CODPART & "' AND CODARR = '" & CODARR & "'")
perc = srst("PERC")
if srst.EOF Then
%>
Il percorso scelto non ha descrizione.
<%
Else 
While NOT srst.Eof
%>
RISULTATO SE C'E'
<%
srst.MoveNext
Wend
srst.Close
Set srst = Nothing
end if
Allora, se CODPART e CODARR ci sono i risultati ci sono.

Se la SELECT non da risultati per l'assenza di uno dei due (CODPART o CODARR) o di entrambi mi aspetterei di leggere "Il percorso non ha descrizione" invece:

codice:
ADODB.Field error '800a0bcd'
Either BOF or EOF is True, or the current record has been deleted. Requested operation requires a current record.
Dove sbaglio???

GRAZIE