求准表达式中类型不一致错误？

Private Sub cmdLend_Click()
Dim sql As String
Dim total As Variant
ccc = frmLogin.bbb
ccc_1 = frmLogin.bbb_1
Dim lendTime As String
Dim daoTime As String
sql = "select * from lend where bookid='" & frmLend_1.txtLendid.Text & "'"
If rs_lend1.State = adStateOpen Then rs_lend1.Close
rs_lend1.Open sql, ADOcn, adOpenKeyset, adLockPessimistic
If rs_lend1.Fields("lend") = True Then
   MsgBox "此书已被借出，请选者其他图书！", 0 + 48, "信息提示"
   rs_lend1.Close
   Unload Me
   frmLend_1.Show
   frmLend_1.txtLendid.Text = ""
   Exit Sub
Else
   sql = "select count(bookid) as total from lend where id='" & ccc_1 & "' and  lend = '" & True & "' "
   If rs_lend3.State = adStateOpen Then rs_lend2.Close
   rs_lend3.Open sql, ADOcn, adOpenKeyset, adLockPessimistic
   If total > 4 Then
       MsgBox "你已借了五本书，请归还所借图书后再借！", 0 + 48, "信息提示"
   Else
   sql = "select * from lend "
   If rs_lend2.State = adStateOpen Then rs_lend2.Close
   rs_lend2.Open sql, ADOcn, adOpenKeyset, adLockPessimistic
   lendTime = Format(Date, "yyyy-mm-dd")
   daoTime = Format(DateAdd("m", 2, Date), "yyyy-mm-dd")
   rs_lend2.AddNew
   rs_lend2.Fields("username") = ccc
   rs_lend2.Fields("id") = ccc_1
   rs_lend2.Fields("bookid") = frmLend_1.txtLendid.Text
   rs_lend2.Fields("booktype") = cmbBooktype.Text
   rs_lend2.Fields("bookname") = txtBookname.Text
   rs_lend2.Fields("publisher") = txtPublisher.Text
   rs_lend2.Fields("bookprice") = txtBookprice.Text
   rs_lend2.Fields("ISBN") = txtISBN.Text
   rs_lend2.Fields("author") = txtAuthor.Text
   rs_lend2.Fields("beizhu") = txtBeizhu.Text
   rs_lend2.Fields("lendtime") = lendTime
   rs_lend2.Fields("daotime") = daoTime
   rs_lend2.Fields("lend") = True
   rs_lend2.Update
   MsgBox "已成功借书！", 0 + 48, "信息提示"
   rs_lend2.Close
   rs_lend1.Close
   rs_lend3.Close
   Unload Me
   frmLend_1.Show
   frmLend_1.txtLendid.Text = ""
   End If
End If
End SubPrivate Sub Form_Load()
 Dim sql As String
 sql = "select * from dushu where bookid= '" & frmLend_1.txtLendid.Text & "'"
 rs_lend.Open sql, ADOcn, adOpenKeyset, adLockPessimistic
 txtBookid.Text = rs_lend.Fields("bookid")
 cmbBooktype.Text = rs_lend.Fields("booktype")
 txtBookname.Text = rs_lend.Fields("bookname")
 txtPublisher.Text = rs_lend.Fields("publisher")
 txtBookprice.Text = rs_lend.Fields("bookprice")
 txtISBN.Text = rs_lend.Fields("ISBN")
 txtAuthor.Text = rs_lend.Fields("author")
 txtBeizhu.Text = rs_lend.Fields("beizhu")
 rs_lend.Close
End Sub
这是我借书窗体的代码，之前是因为没有添加借书的统计功能，一切正常，后来我加了一个统计功能，就是一 个人最多只能借五本书，代码如下：
sql = "select count(bookid) as total from lend where id='" & ccc_1 & "' and  lend = '" & True & "' "
   If rs_lend3.State = adStateOpen Then rs_lend2.Close
   rs_lend3.Open sql, ADOcn, adOpenKeyset, adLockPessimistic
   If total > 4 Then
       MsgBox "你已借了五本书，请归还所借图书后再借！", 0 + 48, "信息提示"
借书时发生错误，说标准表达式中类型不一致，我弄了很久都稿不出来，请高手帮忙，谢谢！