Private Sub Command1_Click()
If Text1.Text = "" Or Text2.Text = "" Then
MsgBox "信息输入不全,请重新输入!", , "图书馆管理系统"
Text1.Text = ""
Text2.Text = ""
End If
Set db = OpenDatabase(App.Path & "\图书001")
Set rs1 = db.OpenRecordset("select 借书证编号 from 读者 where 借书证编号 = '" & Text1.Text & "'")
Set rs2 = db.OpenRecordset("select 图书编号 from 图书 where 图书编号 = '" & Text2.Text & "'")

If rs1.BOF = True And rs1.EOF = True Then
MsgBox ("借书证不存在" + vbCrLf + "请重新输入!")
Text1.Text = ""
Text2.Text = ""
r1.MoveFirst

Else
If rs2.BOF = True And rs2.EOF = True Then
MsgBox ("图书编号输入错误,请重新输入")
Text2.Text = ""
rs2.MoveFirst
Else
rs1.Edit
m = Val(rs1.Fields("当前借书量")) + 1 //这里提示错误 //“这个集合中找不到此项目”
rs1.fields("当前借书量") = str(m)
rs2.Fields("状态") = rs1.Fields("借书证编号")
End If
End If
rs1.Close
rs2.Close
End Sub

错误这里的大概意思就是 ， 把表里的属性“当前借书量”加一，
手头没有VB书，上网找没找到简单明了的， 请各位帮帮忙

YES！问题靠自己解决，
Set rs1 = db.OpenRecordset("select 借书证编号 from 读者 where 借书证编号 = '" & Text1.Text & "'")
Set rs2 = db.OpenRecordset("select 图书编号 from 图书 where 图书编号 = '" & Text2.Text & "'")
改成
Set rs1 = db.OpenRecordset("select 借书证编号,当前借书量 from 读者 where 借书证编号 = '" & Text1.Text & "'")
Set rs2 = db.OpenRecordset("select 图书编号,状态 from 图书 where 图书编号 = '" & Text2.Text & "'")

忘把该属性包括进去了， 晕