我在vc中调用存储过程第一次成功,循环的第二次报错,以下是代码

_CommandPtr pComm;
_ParameterPtr Para0;
_ParameterPtr Para1;
_ParameterPtr Para2;
_ParameterPtr Para3;

pComm.CreateInstance("ADODB.Command");
pRecordset_Recv.CreateInstance("ADODB.Recordset");
Para0.CreateInstance("ADODB.Parameter");
Para1.CreateInstance("ADODB.Parameter");
Para2.CreateInstance("ADODB.Parameter");
Para3.CreateInstance("ADODB.Parameter");
pComm->ActiveConnection=m_pConnection;
pComm->CommandType=adCmdStoredProc;
pComm->CommandText=_bstr_t("p_whtyvote_new");

while(1=1)
{
Para0=pComm->CreateParameter(_bstr_t("Mobile"),adVarChar,adParamInput,20,(_variant_t)"test");
pComm->Parameters->Append(Para0);
Para1=pComm->CreateParameter(_bstr_t("Err"),adInteger,adParamOutput,1);
pComm->Parameters->Append(Para1);
Para2=pComm->CreateParameter(_bstr_t("vMax"),adInteger,adParamInput,-1,(_variant_t)"15");
pComm->Parameters->Append(Para2);
Para3=pComm->CreateParameter(_bstr_t("AClass"),adVarChar,adParamInput,10,(_variant_t)"ylj");
pComm->Parameters->Append(Para3);

pComm->Execute(NULL,NULL,adCmdStoredProc);

int Num=Para1->Value;
}

请各位指教,谢谢!