如何在VC中用ADO调用SQL SERVER中的存储过程？

_CommandPtr And _ParameterPtrpCommand->CommandType=adCmdStoredProc;
pCommand->ActiveConnection=pConnection;//_ConnectionPtr对象
pCommand->CommandText=_bstr_t("function");pParameter1 = pCommand->CreateParameter(_bstr_t("column1"), adVarChar, adParamInput, 50);
pCommand->Parameters->Append(pParameter1); ... ...pParameter1->Value = (LPCTSTR)"hello";
... ...
pCommand->Execute(NULL,NULL,adCmdUnknown);