VC6.0通过ADO调用SQL Server 2000的存储过程出现参数过多的问题

今天在做毕业设计的时候遇到一个很奇怪的问题，我以前通过传递三个参数的存储过程调用都还是很成功的，为什么今天就不行了呢？代码如下：

    HRESULT hr;
    if (m_pCmd == NULL) 
    {
        hr = m_pCmd.CreateInstance(__uuidof(Command));
        if(FAILED(hr))
        {
            AfxMessageBox("创建_CommandPtr对象失败");
            return FALSE;
        }
    }
    _ParameterPtr param1, param2, param3;
    param1.CreateInstance(__uuidof(Parameter));
    param2.CreateInstance(__uuidof(Parameter));
    param3.CreateInstance(__uuidof(Parameter));
    try
    {
        param1 = m_pCmd->CreateParameter("user_id",adInteger, adParamInput,
            4, _variant_t((long)userId));
        m_pCmd->Parameters->Append(param1);
        param2 = m_pCmd->CreateParameter("bycle_id",adInteger, adParamInput,
            4, _variant_t((long)bycleId));
        m_pCmd->Parameters->Append(param2);
         param3 = m_pCmd->CreateParameter("error_code",adInteger, adParamOutput,
            4, _variant_t((long)iErrorCode));
         m_pCmd->Parameters->Append(param3);
         
        m_pCmd->ActiveConnection = m_pConn;
        m_pCmd->CommandText = "rent_bycle_main";
        m_pCmd->CommandType = adCmdStoredProc;
         
        m_pCmd->Execute(NULL, NULL, adCmdStoredProc);
         
        iErrorCode = (long)m_pCmd->Parameters->GetItem("error_code")->GetValue();
    }
    catch (_com_error& e)
    {
        dump_com_error(e);
        return FALSE;
    }

存储过程如下：

SQL Server 2000的存储过程
alter procedure rent_bycle_main (@user_id int, @bycle_id int, @if_can_borrow int out)
as
begin
declare @borrow_flag int, @user_title varchar(8), @avail_time int, @date_hour int;
select @if_can_borrow = 0;
select @borrow_flag = user_if_borrow, @user_title = user_title 
from userInfo where user_id = @user_id;
if (@borrow_flag = 1) 
。。。。。

明明都是一一对应的，为什么会出现过程或函数参数太多的情况呢？这个问题搞了一下午，无意间，我在VC中无聊的使用了".",显示知道Command->Parameters有个方法叫GetCount()。通过调试一看，确实参数有六个(因为在这步调用ADO之前，还有一个函数使用ADO调用存储过程，所以调用两次都使用三个参数，总过就是六个参数)，报错很正常。关键是怎么改正，让在调用之前把参数搞正确，我采用的是在每个使用Command对象的Parameters属性的函数的最后都来一句"m_pCommand = NULL(m_pCommand 为Command对象的指针)"。