Problem med at tilføje til database

Hejsa

jeg er ved at lave en butik og har nu fået et problem med at tilføje nogle produkter til min database. Når jeg kører dette:

for each item in Request.form("strOrderItem")

            strOrderItem = cstr(item)
            itemInfo = split(strOrderItem, ",")

            rsItem.addNew
            rsItem("OrdreID") = intOrderID
            rsItem("ProduktID") = itemInfo(0)
            rsItem("ProdNavn") = Request.Form("ProdNavn")
            rsItem("PrisPrStk") = Request.Form("varePris")
            rsItem("Antal") = Request.Form("Antal")
            rsItem.Update

        next
       
        rsItem.Close
        set rsItem = Nothing

så virker det kun hvis der er valgt ét produkt. Hvis der er valgt mere end et produkt får jeg denne fejl:

"Multiple-step OLE DB operation generated errors. Check each OLE DB status value, if available. No work was done.
Line 194"

/Mickill