VB高手帮帮忙，总说语法不对，改改么就说只读，到底问题出在哪了

Private Sub cmdReturn_Click()
    g_strSql = "select * from lentInfo where 书籍编号='" & txtBookIDRenew.Text & "' and 读者编号='" & txtReaderIDRenew.Text & "' and 借书日期=#" & txtLendDate.Text & "#"
    Set g_rs = g_db.OpenRecordset(g_strSql)
    g_rs.Edit
    g_rs.Fields("是否借出").Value = dtpLendDateChange.Value
    g_rs.Update
    Set g_rs = Nothing
    Adodc1.Recordset.Update
    txtBookIDReturn.Text = ""
    txtBookNameReturn.Text = ""
    txtBookPriceReturn.Text = ""
    txtBookLeibieReturn.Text = ""
    txtBookPageReturn.Text = ""
    txtReadIDReturn.Text = ""
    txtReaderNameReturn.Text = ""
    txtLendDateReturn.Text = ""
    txtDay.Text = ""
 
     MsgBox "归还图书!", vbOKOnly, "提示"
    
End Sub

答案：g_strSql = "select * from lentInfo where 书籍编号='" & txtBookIDRenew.Text & "' and 读者编号='" & txtReaderIDRenew.Text & "' and 借书日期='" & DateValue(txtLendDate.Text) & "'"

其他：Adodc1.Recordset.Update 去掉 

上一个："VB找不到Data Access库，不能创建引用"怎么办？高难度问题，高手进，在线等，50分！
下一个：VB中 我建立了个数为16的VScroll1控件数组 现在点其中的一个 相应的文本框中数据改变