VBA中使用ADO的问题

操作：表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，不知道是为什么。一旦把注释的语句(那行红色的语句）加上，就报错。请高手指点迷津。