asp调用存储过程的简单问题，在线等！

存储过程：（运行无误）
ALTER PROCEDURE a.InsertXS
@XSMC varchar(50)
AS
Declare @XSBH int;

set @XSBH=(select isnull(max(XSBH),0) from XS)+1;
insert into XS (XSBH, XSMC)
values(@XSBH,@XSMC)

ａｓｐ程序：

opendatabase.asp

<%
sub opendatabasecmd(conn1,comd1)
set conn1=server.createobject("adodb.connection")
set comd1=server.createobject("adodb.Command")
conn1.open "dsn=s;uid=a;pwd=a"
comd1.ActiveConnection = conn1
end sub
%>
test.asp
<!-- #include file="config/opendatabase.asp" -->
<%
opendatabasecmd conn,cmdTest
cmdTest.CommandText="InsertXS"
cmdTest.CommandType=4 'adCmdStoredProc
cmdTest.Prepared = True

set prmTest = cmdTest.CreateParameter("@XSMC",adVarchar,adParamInput,50,"chenqh")//错误行
cmdTest.Parameters.Append prmTest
cmdTest.Execute

Set cmdTest = Nothing
Set Cnn = Nothing
%>

运行后，ADODB.Command 错误 '800a0bb9'

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

/test.asp，行8
不知道怎么解决！
谢谢各位大虾