一个关于commond对象的问题，望指教

[hh2000]

我想重用一个commond对象
set cmd= Server.CreateObject("ADODB.command")
set cmd.ActiveConnection=conn
cmd.CommandText="proc_check"
cmd.CommandType=adcmdstoredproc
cmd.CommandTimeout=200

mycode=0
do while mycode<100
set para=cmd.CreateParameter("return_value",adInteger,adparamreturnvalue)
cmd.Parameters.append para
set para=cmd.CreateParameter("@employ_code",AdSmallint,AdParamInput,,mycode)
cmd.Parameters.append para
cmd.Execute
return_value=cmd.Parameters("return_value")
if cmd.parameters("return_value")=1 then
response.writh mycode
end if
mycode=mycode+1
loop

set cmd=nothing

可是执行时老是说cmd.execute出错，如何才能反复用cmd呢？