亲爱的们来帮帮我看看这是哪里错了！！！数据库的！谢谢了！

测试的时候显示：实时错误’-2147217904（80040e10）‘ 至少一个参数没有被指定值代码：
Option Explicit
Dim leibie As String         '该读者的类别
Dim qixian As Integer        '该读者可以借书的期限
Dim shumu As Integer         '该读者已借书数量
Dim maxnum As Integer        '该读者借书数量的限制Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End SubPrivate Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End SubPrivate Sub Command1_Click()
Dim rs_borrowbook As New ADODB.Recordset
Dim sql As String
sql = "select * from reader_info where reader_no='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
leibie = rs_borrowbook.Fields(3)
shumu = rs_borrowbook.Fields(8)
rs_borrowbook.Close
sql = "select * from reader_style where style_name='" & leibie & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
qixian = rs_borrowbook.Fields(2)
maxnum = rs_borrowbook.Fields(1)
rs_borrowbook.Close
If shumu >= maxnum Then
   MsgBox "you can not borrow more！", vbOKOnly + vbExclamation
   Exit Sub
End If
sql = "select * from borrow_info"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields(1) = Combo1.Text
rs_borrowbook.Fields(2) = Combo2.Text
rs_borrowbook.Fields(3) = Label8.Caption
rs_borrowbook.Fields(4) = Label9.Caption
rs_borrowbook.Fields(5) = Date
rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from book_info where book_no='" & book_num & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(7) = "Y"
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from book_info where reader_no='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic此行显示错误
rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox "book borrow successful！", vbOKOnly + vbExclamation
Unload Me
End Sub
以前代码
Option Explicit
Dim leibie As String         '该读者的类别
Dim qixian As Integer        '该读者可以借书的期限
Dim shumu As Integer         '该读者已借书数量
Dim maxnum As Integer        '该读者借书数量的限制Private Sub Combo1_Click()
Combo2.ListIndex = Combo1.ListIndex
End SubPrivate Sub Combo2_Click()
Combo1.ListIndex = Combo2.ListIndex
End SubPrivate Sub Command1_Click()
Dim rs_borrowbook As New ADODB.Recordset
Dim sql As String
sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
leibie = rs_borrowbook.Fields(3)
shumu = rs_borrowbook.Fields(8)
rs_borrowbook.Close
sql = "select * from 读者类别 where 种类名称='" & leibie & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
qixian = rs_borrowbook.Fields(2)
maxnum = rs_borrowbook.Fields(1)
rs_borrowbook.Close
If shumu >= maxnum Then
   MsgBox "该读者借书数额已满！", vbOKOnly + vbExclamation
   Exit Sub
End If
sql = "select * from 借阅信息"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.AddNew
rs_borrowbook.Fields(1) = Combo1.Text
rs_borrowbook.Fields(2) = Combo2.Text
rs_borrowbook.Fields(3) = Label8.Caption
rs_borrowbook.Fields(4) = Label9.Caption
rs_borrowbook.Fields(5) = Date
rs_borrowbook.Fields(6) = DateAdd("Ww", qixian, Date)
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from 书籍信息 where 书籍编号='" & book_num & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(7) = "是"
rs_borrowbook.Update
rs_borrowbook.Close
sql = "select * from 读者信息 where 读者编号='" & Combo1.Text & "'"
rs_borrowbook.Open sql, conn, adOpenKeyset, adLockPessimistic
rs_borrowbook.Fields(8) = rs_borrowbook.Fields(8) + 1
rs_borrowbook.Update
rs_borrowbook.Close
MsgBox "本书借阅成功！", vbOKOnly + vbExclamation
Unload Me
End Sub
这个运行是好好的，我就是把DATABASE中文改英文，然后在程序里改了下名字！求教了！谢谢谢谢了！