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對象的指針)"。