请问高手一个调用SQL存储过程的问题

<% Set ConnMobile=server.CreateObject("adodb.connection")
'Conn.CommandTimeout=90
connstr="driver={sql server};server=black1;uid=sa;password=111;database=mydb"
ConnMobile.Open connstr
if err.number<.0 then
response.write "open webdb error2 :" & err.Description
response.end
end if
set SMSrs=server.createobject("adodb.recordset")

SMSsql="exec New_sms_SendSMSForPMDB 15,'BZ','"&DestTermID&"',"&SrcTermID&"',"&MsgContent&"',@sMsgID OUTPUT,@nErrorCode OUTPUT,'088888'"
sql="select * from mytable"
response.write SMSsql
SMSrs.open SMSsql,connmobile,1,1
'if err.number<>0
if err.number<>0 then
response.write "wrong"
SMSrs.close
set SMSrs=nothing
'set connmobile=nothing
response.end
end if
SMSrs.close
set SMSrs=nothing
%>
运行时程序报错：错误类型：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E21)
/SendSMS.asp, 第 31 行

请问是什么原因，如何修改？谢谢