急！急，那位大侠能帮一下忙

Question

在vb前端取一个记录集后，循环recordset的每个记录调用下面的存储过程，
With cmd
            .ActiveConnection = Conn
            .CommandType = adCmdStoredProc
            .CommandText = "sp_protected_au"            Set pa = .CreateParameter("@implemente_date", adDBTimeStamp, adParamInput)
            .Parameters.Append pa
            pa.value = RsFlights!implemente_date            Set pa = .CreateParameter("@flight_date", adDBTimeStamp, adParamInput)
            .Parameters.Append pa
            pa.value = RsFlights!flight_date            Set pa = .CreateParameter("@carr", adChar, adParamInput, 4)
            .Parameters.Append pa
            pa.value = RsFlights!carr            Set pa = .CreateParameter("@flight_no", adChar, adParamInput, 5)
            .Parameters.Append pa
            pa.value = RsFlights!flight_no            Set pa = .CreateParameter("@enter_time", adDBTimeStamp, adParamInput)
            .Parameters.Append pa
            pa.value = RsFlights!enter_time            Set pa = .CreateParameter("@agent", adChar, adParamInput, 8)
            .Parameters.Append pa
            pa.value = RsFlights!agent            Set pa = .CreateParameter("@success", adInteger, adParamOutput)
            .Parameters.Append pa            .Execute
            IntReturn = cmd("@success")
        End With
第一次成功，但是到第二次就提示:
"Too many arguments were supplied for procedure  sp_protected_au"
请那位能诊断一下不胜感谢!

Answer 1

你试一下在执行过程后，删除所创建的参数看看，我感觉是参数太多的问题。
msn:[email protected]

Answer 2

在做一次循环以后已经有把set pa =nothing