SQL Statement Count Total Quantity

[flair]

You are doing a

Do Until rst.EOF

Then inside this you are again defining

DisplaySQL = "SELECT * FROM DataGrid"
        Set rst = oSQL.Execute(DisplaySQL)

This would reset the recordset. The .Movenext would no more be effective. Don't set it again.