基于查询的更新失败,因为没有发现要更新的行,该如何处理

基于查询的更新失败,因为没有发现要更新的行
基于查询的更新失败,因为没有发现要更新的行：
Dim s$, k#, X1#, X2#, x3#, x4#, i&
Dim conn As New ADODB.Connection
Dim rs As New ADODB.Recordset

conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & MyPath & path & ";Exclusive=No;"
s = "select * from station1": rs.Open s, conn, adOpenStatic, adLockPessimistic
For i = 1 To rs.RecordCount
  k = rs("rain")
  rs("rain") = k + 0.1
  rs.Update '在这里出错，数据类型也对的，k值也对，且rs("rain") 的值表面上也修改了
  rs.MoveNext
Next
rs.Close
conn.Close


------解决方案--------------------
rs.Open s, conn, adOpenKeyset, adLockOptimistic
------解决方案--------------------
1、把rs.CursorLocation改成client；
2、把adOpenStatic改成adOpenDynamic或者adOpenKeyset；
3、使用sql语句更新，即“update”。
------解决方案--------------------

VB code

.
.
conn.CursorLocation = adUseClient
conn.Open "Driver={Microsoft Visual FoxPro Driver};SourceType=DBF;SourceDB=" & MyPath & path & ";Exclusive=No;"
.
.