急，为什么我的当前记录集不支持更新
rslqk.CursorLocation = adUseServer
rslqk.Open "select * from lqk ", database, , , adCmdText
Do While Not rslqk.EOF
Dim newstu As String
newstu = Trim(rslqk.Fields( "ksh ").Value)
rsbyk.CursorLocation = adUseServer
rsbyk.Open "select * from byk where ksh= '& newstu & ' ", database, , , adCmdText
If rsbyk.EOF = True Then
rslqk.Fields( "bz ").Value = "无此毕业生 " 'Trim(rslqk.Fields( "bz ").Value) +
rslqk.Update
rsbyk.Close
Else
rsbyk.Close
End If
rslqk.MoveNext
Loop

[解决办法]
rsbyk.Open "select * from byk where ksh= ' " & newstu & " ' ", Database, , , adCmdText
[解决办法]
debug.print 你得sql

再检查时候正确
[解决办法]
rslqk.CursorLocation = adClient试试！
[解决办法]
打开记录集时要注意各个参数的设置即可，如下：

rslqk.Open "select * from lqk ", oConnection, adOpenKeyset, adLockOptimistic

一般使用这两个参数 adOpenKeyset, adLockOptimistic 后，记录集可以完成大部分的操作，包括更新、前后移动等等。
[解决办法]
恭喜主