ADO调用储存过程问题？？

[lmingnet]

::CoInitialize(NULL);
_ParameterPtr inParam=NULL;
_variant_t vtEmpty (DISP_E_PARAMNOTFOUND, VT_ERROR);
Conn1.CreateInstance( __uuidof(Connection ));
Conn1->Open("DSN=demo;UID=system;PWD=manager","","",-1);
_CommandPtr pCommand;
_RecordsetPtr MySet;
pCommand.CreateInstance(__uuidof(Command));
pCommand->ActiveConnection=Conn1;
pCommand->CommandType=adCmdStoredProc;
*****// inParam=pCommand->CreateParameter( _bstr_t "input"),adChar,adParamInput,10)
inParam-> Value="ming";
pCommand->Parameters->Append(inParam);
pCommand->Parameters->Refresh();
pCommand->Parameters->Item["@input"]->Value ="ming";
pCommand->CommandText="procedure_db";
MySet=pCommand->Execute(NULL,NULL,adCmdUnknown);

::CoUninitialize();

代码如上，为什么运行到标记处*****// 就出错？？
其中procedure_db为一只带输入参数的存储过程。请教！

[ZHENG017]

pCommand->CreateParameter("input"),adChar,adParamInput,10,COleVariant("你的实际值"));

[ZHENG017]

pCommand->Parameters->Append(pCommand->CreateParameter("input"),adChar,adParamInput,10,COleVariant("你的实际值")));
pCommand->CommandText="procedure_db";
MySet=pCommand->Execute(NULL,NULL,adCmdUnknown);