with cmd .ActiveConnection = dbConn .CommandText = "USP_Insert_ShoppingCartInfo" .CommandType = adCmdStoredProc .CommandTimeout = 7200 '@tcUserID varchar(20), '@tnNumOfRecords int, '@tcDescription text, '@tcCreditCategory char(1), '@tcSelectionCriteria text, '@tcListOfCodes varchar(8000), '@tnCartID int OUTPUT .Parameters.Append .CreateParameter("Return",adInteger,adParamReturnValue) .Parameters.Append .CreateParameter("@tcUserID",adVarChar,adParamInput,20,CreditUserID) .Parameters.Append .CreateParameter("@tnNumOfRecords",adInteger,adParamInput,,NumRecs) .Parameters.Append .CreateParameter("@tcDescription",adChar,adParamInput,200,cStr(strDescription)) .Parameters.Append .CreateParameter("@tcCreditCategory",adChar,adParamInput,1,CreditCategory) .Parameters.Append .CreateParameter("@tcSelectionCriteria",adVarChar,adParamInput,8000,SelectionCriteria) .Parameters.Append .CreateParameter("@tcListOfCodes",adVarChar,adParamInput,8000,ListOfCodes) ' 7th parameter is Output parameter .Parameters.Append .CreateParameter("@tnCartId",adBigInt,adParamOutput, ,CartId) .Execute recs, , adExecuteNoRecords retval = .Parameters(0) CartID = .Parameters(7) end with CloseCmd(cmd) CloseDBConn(dbConn) end functionI've tried several modifications with this line: