如何更新超过1万条记录的记录集？access

[fisherboy]

Set dataRs=Server.CreateObject("adodb.recordset")
dataRs.open sql,Conn,1,3
If Not dataRs.eof Then
	Do While Not dataRs.eof
		dataRs("aaa")=111		
		dataRs.update
		dataRs.movenext
	Loop
End If

access有一万多条记录，我要打开记录集，然后更新每一条记录，但是发现在本地测试的时候，执行到9千多条，就停止执行了。请问怎么让程序执行完这一万多条记录？

[xb12369]

帮顶