Access中窗体设计中遇到了，VBA代码如下

如果你的readerid 和 bookid 两个文本框。代码这样修改一下

Dim rs As ADODB.Recordset
Set rs = New ADODB.Recordset
Dim strsql As String
strsql = "select * from 借还书表"
rs.Open strsql, CurrentProject.AccessConnection, adOpenKeyset, adLockOptimistic
If readerid <> "" And bookid <> "" Then
rs.AddNew '添加一条新纪录
rs("读者号") = readerid '将文本框中输入的内容赋值给借还书表的对应字段
rs("书号") = bookid
rs("借书日期") = Date
rs("借书期限") = days.Value
rs("是否还书") = False
rs.Update '将新添加的记录保存到借还书表中
Else
MsgBox "读者号和书号不能为空！"
End If
rs.Close