Ya checaste que no tengas ningun campo vacío..?? si es así lo que puedes hacer sería lo siguiente..:
Código:
QPrCode="select * from parametr where PrCod=" & PrCod
Set rsPrCode = CreateObject("ADODB.Recordset")
rsPrCode.ActiveConnection=cn
rsPrCode.open QPrCode
while NOT rsPrCode.EOF
PrCom = rsPrCode("PrCom") & ""
rsPrCode.MoveNext
Wend
rsPrCode.close
If trim(PrCom) <> "" then
Estud = rsEst("EsCod")
else
Estud = 0
End if
Saludos.. y suerte..!
<html><center><embed src="http://www.angelfire.com/on/cobainss/Movie1.swf" height=80 width=200><BR></embed></center></html>