Ayuda, tengo un error!

[Gabycienta]

sigue el marcando el error!

QPrCode="select * from parametr where PrCod=" & PrCod
Set rsPrCode=CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
i=1
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
Response.write("entra al primer if")
do while NOT(rsPrCode.EOF)
Response.write("entra al do while")
if not(isnull(rsPrCode("PrCom"))) then
Response.write("entra al segundo if")
PrCome = rsPrCode("PrCom")
response.write("iteracion i = " & PrCome) %><br><%
else
Response.write("entra al else del segundo if")
PrCome=""
end if
rsPrCode.MoveNext
i=i+1
loop
end if
rsPrCode.close

ESTO ES LO QUE MARCA:
entra al primer ifentra al do whileentra al else del segundo if error '80020009'
Ocurrió una excepción.

/resultados7.asp, line 416

COMO PrCom trae vacío pues entra al else del if y no pinta la "interacion i=" eso es correcto! realmente eso es lo que quiero que haga pero como que al llegar al rsPrCome.MoveNext es donde truena...raro no?...de hecho es solo un registro lo que trae ese query