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

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

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...