For j = lvOrderList.ListItems.Count To 1 Step -1

If rsProducts!Product_ID = lvOrderList.ListItems(j).Text Then
orderQnty = lvOrderList.ListItems(j).ListSubItems(2).Text
rsProducts!Units_InStock = rsProducts!Units_InStock + orderQnty

Loop Until rsProducts.EOF
End If
Next j

next without for error

the unit in stock should be updated with the data in listview(orderQnty). the productID from listview should first match with ProductID in database.
should then move on to next listview and update...