请各位大师帮忙找错, 模块中定义如下: Public g_ws As Workspace Public g_db As Database Public g_rs As Recordset Public g_strSql As String 程序中定义了一个initdatagrid函数,内容如下: Public Function initdatagrid(blnrenew As Boolean) Dim strdatasource As String Dim intcount As Integer Dim strreaderid As String If blnrenew = False Then strreaderid = txtreaderid.Text Else strreaderid = txtreaderidrenew.Text End If strdatasource = "select lentinfo.读者编号,readerinfo.读者姓名,lentinfo.图书编号," _ & "bookinfo.图书名称,booktype.图书编号,bookinfo.出版社,bookinfo.图书页码,lentinfo.借阅日期," _ & "lentinfo.还书日期,lentinfo.超出天数,lentinfo.罚款金额 from readerinfo,bookinfo,lentinfo,booktype" _ & "where readerinfo.读者编号=lentinfo.读者编号 and bookinfo.图书编号=lentinfo.图书编号 and " _ & "lentinfo.读者编号='" & strreaderid & "'and booktype.类别代码 and lentinfo.还书日期 is null " Adodc1.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=F:\vb-sql實例\图书管理系统\图书馆查询管理系统.mdb;Persist Security Info=False" Adodc1.CursorLocation = adUseClient Adodc1.CommandType = adCmdTable Adodc1.RecordSource = strdatasource Adodc1.Refresh If blnrenew = False Then Set dtgrdLendBook.DataSource = Adodc1 dtgrdLendBook.Refresh lbllendcount.Caption "所借图书:" + CStr(Adodc1.Recordset.RecordCount) g_strSql = "select * from basicset" Set g_rs = g_db.OpenRecordset(g_strSql) intcount = g_rs!借出册数 - Adodc1.Recordset.RecordCount lblremain.Caption = CStr(intcount) Else Set dtgrdLendBookRenew.DataSource = Adodc1 dtgrdLendBookRenew.Refresh End If End Function

Private Sub txtreaderidrenew_KeyPress(KeyAscii As Integer) If KeyAscii = "13" And txtreaderidrenew.Text <> "" Then g_strSql = "select * froom readerinfo where 读者编号='" & txtreaderidrenew.Text & "'" Set g_rs = g_db.OpenRecordset(g_strSql) If Not g_rs.EOF Then txtreaderidrenew.Text = g_rs!读者姓名 initdatagrid (True) cmdok.Enabled = True End If Set g_rs = Nothing ElseIf KeyAscii = "13" And txtreaderidrenew.Text = "" Then MsgBox "请输入读者编号", vbOKOnly, "提示" cmdok.Enabled = False End If End Sub 运行中出现了这样的错误:实时错误"13",类型不匹配. Private Sub txtreaderid_KeyPress(KeyAscii As Integer) If KeyAscii = "13" And txtreaderid.Text <> "" Then g_strSql = "select * from readerinfo where 读者编号='" & txtreaderid.Text & "'" Set g_rs = g_db.OpenRecordset(g_strSql) '实时错误"13",类型不匹配. If Not g_rs.EOF Then txtreadername.Text = g_rs!读者姓名 initdatagrid (False) Else MsgBox "没有该读者信息!", vbOKOnly, "提示" txtreaderid.Text = "" End If Set g_rs = Nothing ElseIf KeyAscii = "13" And txtreaderid.Text = "" Then MsgBox "请先输入读者信息!", vbOKOnly, "提示" txtreaderid.Text = "" End If End Sub 烦请各位大师百忙之中帮我看一下,非常感谢!