新手求助。高手帮帮忙吧。

最近要做图书管理系统。。
其他都正常。
做到信息查询的时候 老是提示  找不到方法或数据成员代码如下。。
麻烦高手帮忙看下出错在哪里'cmddel:
  'MsgBox Err.Description
End SubPrivate Sub Form_Load()
 Dim sql As String
 Dim conn As New Connection
 On Error GoTo loaderror
 conn.Open "provider=Microsoft.Jet.OLEDB.4.0; data source=" & App.Path & "\database.mdb"
 
 sql = "select * from 读者信息"
 rs_reader.CursorLocation = adUseClient
 rs_reader.Open sql, conn, adOpenKeyset, adLockPessimistic
 
 
 cmdupdate.Enabled = False
 cmdcancel.Enabled = False
 DataGrid1.AllowAddNew = False
 DataGrid1.AllowDelete = False
 DataGrid1.AllowUpdate = False
 Set DataGrid1.DataSource = rs_reader
 Exit Sub
loaderror:
 MsgBox Err.Description
End SubPrivate Sub Form_Unload(Cancel As Integer)
  Set DataGrid1.DataSource = Nothing
  rs_reader.Close
End Sub