怎么清除ADO中的Command对象中的参数呢？异常提示为给过程或函数过多的参数

如何清除ADO中的Command对象中的参数呢？错误提示为给过程或函数过多的参数。
循环读取7天里的数据。。使用了for循环,调用存储过程插入到数据库里

大致结构如下

_ParameterPtr m_pParam1;
_ParameterPtr m_pParam2;
_ParameterPtr m_pParam3;

for(int i=0;i<8;i++)
{
//下面创建参数集
  m_pParam1.CreateInstance(__uuidof(Parameter));
  m_pParam2.CreateInstance(__uuidof(Parameter));
  m_pParam3.CreateInstance(__uuidof(Parameter));
m_pParam1 = m_pCommand->CreateParameter("TimeID",adVarChar,adParamInput,32,(_variant_t)DatadayTime);
m_pCommand->Parameters->Append(m_pParam1);
m_pParam2 = m_pCommand->CreateParameter("Step",adInteger,adParamInput,sizeof(int),(_variant_t)var_Step);
m_pCommand->Parameters->Append(m_pParam2);
m_pParam3 = m_pCommand->CreateParameter("ActivityTime",adInteger,adParamInput,sizeof(int),(_variant_t)var_ActivityTime);
m_pCommand->Parameters->Append(m_pParam3);

m_pCommand -> Execute( & vNull, & vNull,adCmdStoredProc); //开始执行存储过程

}

目前错误是 提示给存储过程过多的参数。。我考虑应该是m_pCommand一直在循环中CreateParameter和Append参数，没有删除或者清除m_pCommand中的_ParameterPtr造成参数过多的。因为每次只能上传第一条数据，第二次循环起就报参数过多的错误了。。

请教下大家，如何清除Parameter参数呢？？？我使用m_pCommand-> GetParameters()-> Delete(_variant_t("m_pParam3"));提示找不到该项目。

QQ:66778560。请大家帮帮忙了。。谢谢了

------解决方案--------------------
m_pCommand-> GetParameters()-> Delete(_variant_t("m_pParam3"));

// --》
m_pCommand-> GetParameters()-> Delete(_variant_t("ActivityTime"));