VB中采用ADO引用数据库，更新说“当前记录集不支持更新"解决方法

Private Sub Text1_KeyPress(KeyAscii As Integer)
Dim booksn As String
Dim bookwz As String
If KeyAscii = 13 Then

booksn = Trim(Text1.Text)
strsql = "select * from bookpz where chuchangtiaoma='" & booksn & "'"
Set cn = New ADODB.Connection
Set adors = New ADODB.Recordset

cn.Open strdsn
adors.Open strsql, cn
If adors.EOF And adors.BOF Then
Set adors = Nothing
Set adors = New ADODB.Recordset
strsql = "select * from book where 书号='" & booksn & "'"
adors.Open strsql, cn

If adors.EOF And adors.BOF Then
Set adors = Nothing
Else
If adors("原位置") = bookwz Then
adors("位置正常") = 1
Set adors = Nothing
Else

adors("位置正常") = 0

adors.Update
Set adors = Nothing

End If
End If

Else
bookwz = adors("chuchangwz")
Set adors = Nothing
End If

Text1.Text = ""
Text1.SetFocus

End If

RS.OPEN SQL,CONN,A,B
A: ADOPENFORWARDONLY(=0) 只读,且当前数据记录只能向下移动
ADOPENSTATIC(=3) 只读,当前数据记录可自由移动
ADOPENKEYSET(=1) 可读写,当前数据记录可自由移动
ADOPENDYNAMIC(=2) 可读写,当前数据记录可自由移动,可看到新增记录
B: ADLOCKREADONLY(=1) 默认值,用来打开只读记录
ADLOCKPESSIMISTIC(=2) 悲观锁定
ADLOCKOPTIMISTIC(=3) 乐观锁定
ADLOCKBATCHOPTIMISTIC(=4) 批次乐观锁定
参考资料：http://www.csdnback.com/ForumsView/t/20030801/22/2099694.html