Loop error

[robbo77]

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

        Next j

next without for error