一个存储过程的小问题！大家来帮帮忙

存储过程为
CREATE proc del_Sducn_Tolook
@choice varchar (50)
with recompile
as
if @choice='del'
delete from Tolook WHERE datepart(dd,GetDate())-datepart(dd,looktime)>=30
GO

执行为
set cmd=server.createobject("ADODB.command")
cmd.activeconnection=conn
cmd.commandtext="del_Sducn_Tolook"
Cmd.CommandType=adCmdStoredProc

set param1=cmd.createparameter("@choice",advarchar,adparaminput,50)
cmd.parameters.append param1
cmd("@choice")="del"
cmd.execute


报错为：
ADODB.Command 错误 '800a0bb9'

参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。



Cmd.CommandType=adCmdStoredProc 就是这里报错

请问大家是什么问题。我第一次用大家指点一下