其中的(rs_借还信息.Open sql2, conn, adOpenKeyset, adLockPessimistic)里面的adOpenKeyset, adLockPessimistic是什么意思啊?
还有If Err.Number <> 0 Then MsgBox Err.Description End If 又表示什么意思呢! 对了VB里面的Description代表什么?
Dim answer As String
On Error GoTo delerror
Dim rs_借还信息 As New ADODB.Recordset
Dim sql2 As String
sql2 = "select * from 借还信息 where 读者编号='" & rs_reader.Fields(0) & "'"
rs_借还信息.Open sql2, conn, adOpenKeyset, adLockPessimistic
If rs_借还信息.EOF = False Then
' If rs_reader.Fields(0) = rs_借还信息.Fields(0) Then
MsgBox "此人已借书,占时无法删除!"
' End If
Else
DataGrid1.AllowDelete = True
rs_reader.Delete
rs_reader.Update
DataGrid1.Refresh
MsgBox "删除成功！", vbOKOnly + vbExclamation, ""
DataGrid1.AllowDelete = False
End If
delerror:
If Err.Number <> 0 Then
MsgBox Err.Description
End If

还有一个问题是 rs_reader.CursorLocation = adUseClient 不知道什么意思?最好能够把下面的三句都翻译!
谢谢!~~~~~~~
rs_reader.CursorLocation = adUseClient
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
Set DataGrid1.DataSource = rs_reader

rs_reader是已经定义成数据集了!~~

rs_reader.CursorLocation = adUseClient '客户端游标提供者
Set DataGrid1.DataSource = rs_reader '设置datagrid的数据源..
adOpenKeyset, adLockPessimistic
游标类型... 锁定方式...
rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic '打开记录集..

谢谢了啊!~

还有一个问题就是If Err.Number <> 0 Then MsgBox Err.Description End If 在VB里面的Description代表什么?

想知道vb里面的description是什么意思...那你就先知道英文里的description是什么...