还是关于SUM函数的问题

Question

用ACCESS开发的SQL数据库，窗体上部是供用户输入的文本框，绑定在数据库字段，设定数据源为salary字段，下半部分也是文本框，用来显示合计，设定文本框的数据源为:Sum([salary]),但是，提示“#错误”，而用户又非要求能够在窗体上显示总计。我用SUM（NZ（[SALARY]，0）也不行。已经打算放弃用SUM了。
后来打算自己写合计函数。
但这个合计函数没办法与设定数据源的方法相比，因为设定了数据源的，不需要事件触发，只有窗体上部变化，下部随着变化，而我写函数，需要事件触发，最关键的是，事件结束后，数据就自然消失了，不象设定数据源，数据一直保持存在。
不知道该怎么办

Answer 1

dim dblsum as double
    dblsum=0
    dblsum = dblsum + text1.text
    text2.text= val('"& dblsum&"')............................

Answer 2

供用户输入的文本框
//在TextChange事件里面计算合计
Private Sub Text1_Change()
    Text2 = 10 + Text1 '在这里计算合计
End Sub

Answer 3

Option Explicit
    Public mSum As DoublePrivate Sub Form_Load()
    mSum = 0
End SubPrivate Sub Text1_LostFocus()
    mSum = mSum + Val(Text1.Text)
    Text2.Text = mSum
End Sub

Answer 4

     这句就OK了:mSum = mSum + Val(Text1.Text),注意是在LostFoucs中处理!