Ayuda, tengo un error!

[Gabycienta]

Si bakanzipp si modifiqué el código...el error que puse fue el que marco cunado use la modificación que me sugirió RootK... aqui esta el código que me sugeriste y el error que marca:

QPrCode="select * from parametr where rCod=" & PrCod
Set rsPrCode=CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
if not(rsPrCode.EOF) and not(rsPrCode.BOF) then
do while NOT(rsPrCode.EOF)
if not(isnull(rsPrCode("PrCom"))) then
PrCome = rsPrCode("PrCom")
else
PrCome=""
end if
rsPrCode.MoveNext
loop
end if //***ESTA ES LA LINEA 409!!!***//
rsPrCode.close
If trim(PrCome) <> "" then
Estud = rsEst("EsCod")
Else
Estud = 0
End if

Y EL ERROR ES ESTE:

error '80020009'
Ocurrió una excepción.
/resultados7.asp, line 409

AHORA BIEN, LES COMENTO QUE HICE EL QUERY POR FUERA Y EL CAMPO PrCom trae null...yo creo que eso es lo que esta causando ruido!

Que será?