Total figure not accurate?

So that your cents add up correctly perhaps change this:

rs("qty_issued") * rs("stock_price")

To instead be this:

Round(rs("qty_issued") * rs("stock_price"), 2)

And change this:

strGrandTotal = clng(strGrandTotal) + clng(strTotal)

To be this instead:

strGrandTotal = cdbl(strGrandTotal) + cdbl(strTotal)

As a minor point you might want to change the names of variables strTotal and strGrandTotal to be dblTotal and dblGrandTotal instead so that people looking at the code don't think that the variables are storing strings.  Or you might use cur instead of dbl for a prefix to mean currency.