关于VB6显示一串计算公式下的结果值？

就像Excel那样，当输入“=5*2+2*1+3”之后会显示出结果值。
现在我在数据库里保存“=5*2+2*1+3”，当显示出来时要让它显示结果值，有什么更好的方法没。有没有什么专用函数如：函数(=5*2+2*1+3)，其结果=15
不要然就要用程序来编写，有些麻烦。请高手指教下，谢谢！

'首先,在工程里引用一下Microsoft Script Control,然后查询出公式的字段内容,再用调用公式计算.
'只写主要的部分,其它的内容自己添加了!
Dim Cnt As New ADODB.Recordset, CntA As New ScriptControl
CntA.Language = "vbscript"
Cnt.CursorLocation = adUseClient
Cnt.Open "SELECt 公式 FROM 表1", DBObj
MsgBox CntA.Eval(Cnt.Fields(0))
Cnt.Close
'PS:要保证"表1"里"公式"字段里的内容是正确的公式,否则要添加On Error...

n的值超出范围 -2,147,483,648 到 2,147,483,647.导致溢出.可以讲n的值设为double类型