vb 溢出,该如何解决

vb 溢出
Set Money = ExeCutesql("select sum(数量*价格) from 进货表", Str_text)
A = Money.Fields(0)
运行时A = Money.Fields(0)显示溢出，这是为啥？如何改进，请高手指点。谢谢！

[解决办法]
A是什么类型的变量?这Fields(0)里面的值是否大于了A所声明的类型的最大值?
[解决办法]
是的，改成long就可以了。谢谢