在处理数据时溢出问题

taogon

Dim str As String
Dim i As Integer
Dim rs As New ADODB.Recordset
str = "select * from 汇总表"
rs.Open str, CurrentProject.Connection, adOpenStatic, adLockOptimistic

rs.MoveFirst
Do While Not rs.EOF
rs("金额") = 2
rs.MoveNext
Loop
在处理汇总表中数据条数超过9494条记录时会出现溢出现象,不知到是什么原因,望高手指点

事例件附件

taogon

好了,换了台电脑就可以了,可能是系统问题

fan0217

把例子拿来看看