关于VBmove方法与运算的问题

[guo7530]

我正学VB，现在有一个问题想请教你：

Private Sub EmText3_Change(Index As Integer)
'这段代码是实现自动计算的过程
Dim yfgz As Single
res1.Caption = Str$(Val(EmText3(0).Text) + Val(EmText3 (1).Text) + Val(EmText3(2).Text) + Val(EmText3(3).Text))
'res1是工资应发合计的结果
res2.Caption = Str$(Val(EmText3(4).Text) + Val(EmText3(5).Text) + Val(EmText3(6).Text) + Val(EmText3(7).Text) + Val(EmText3(8).Text)+ Val(EmText3(9).Text))
'res2是工资扣款合计的结果
res3.Caption = Val(res1.Caption) - Val(res2.Caption)
'res2是工资实发合计的结果
End Sub

Private Sub Nexcom_Click()
'向下移动一个记录，
Data1.Recordset.MoveNext
If Data1.Recordset.EOF Then
Data1.Recordset.MoveLast
End If
End Sub

Private Sub Precom_Click()
'向上移动一个记录，
Data1.Recordset.MovePrevious
If Data1.Recordset.BOF Then
Data1.Recordset.MoveFirst
End If
End Sub

运行程序后，程序报错如下：
实时错误'3426'
该操作被关联对象取消

如果去除EmText3_Change过程，则程序可以正常运行

不知道为什么，谢谢了