VBA中使用ADO的问题

[meijianyu]

操作：表TableName中就一个字段（NewData)，而且只存放一条记录。每次使用后，让其值加1。

代码

Rst_SQL = ""
Rst_SQL = Rst_SQL & "Update dbo.TableName set NewDateID=NewDateId+1"
Rst.Open Rst_SQL, ConDB, adOpenDynamic, adLockOptimistic

Rst_SQL = ""
Rst_SQL = Rst_SQL & "Select NewDateIDfrom dbo.TableName "
Rst.Open Rst_SQL, ConDB
'msgbox(Rst.RecordCount)
Range("B1").CopyFromRecordset Rst
Rst.Close
ConDB.Close

代码能正常执行，但是，测试记录集的条数时，得到的是-1，不知道是为什么。一旦把注释的语句(那行红色的语句）加上，就报错。请高手指点迷津。

[倒大霉的上帝]

把Rst.Open Rst_SQL, ConDB, adOpenDynamic, adLockOptimistic
改成
把Rst.Open Rst_SQL, ConDB, adOpenStatic, adLockOptimistic
试试

[lyserver]

指定Rst的游标为客户端游标，即：Rst.CursorLocation = adUseClient

[meijianyu]

解决了。