连接 access 出错

Question

万象 2004 数据库 2004mem.mdb 出错。可以手工打开 2004mem.mdb 不能用vb连接请高手帮忙.Private Sub run()
  List1.AddItem "开启成功!"
  List1.AddItem "开启时间：  " & Date & "日" & Time
  Dim DB_path As String
  DB_path = App.Path & "\2004mem.mdb"
  List1.AddItem "监视数据库" & DB_path
  Set Conn = New ADODB.Connection
  Conn.Mode = adModeRead
  Conn.Open "Provider=MSDASQL;Driver={Microsoft Access Driver (*.mdb)};DBQ=" & DB_path & ";UID=admin;Password=zhrmghg1949jgqz"
  If Conn.State = 1 Then
      List1.AddItem "连接数据库成功！"
    Else
      List1.AddItem "连接数据库失败，请关闭程序，重新连接！"
  End If
  Set Rs = New ADODB.Recordset
  Rs.Open "select * from tLogin", Conn
End Sub
  Rs.Open "select * from tLogin", Conn 一句出错。提示
实时错误"-2147217911 (80040e09)"
[Microsoft][Microsoft Access Driver]不能读取记录;
在"tlogin"上没有读取数据权限。
  Rs.Open "select * from tLogin", Conn,1,1
  Rs.Open "select * from tLogin", Conn,3,4 都不行。
我只是想检测数据库，如果数值变化，就在 list1.中显示出来，
请高手帮忙实现这小段语句。

Answer 1

获取对tlogin的操作权限：   
  (打开Access,工具/选项/视图/选中系统对象，确定后，工具/安全/用户与组权限/对象名称/选中tlogin--->权限/读取数据，确定，关闭Access)

Answer 2

Reset.Open "select * from tLogin", conn, adOpenKeyset, adLockReadOnly

Answer 3

实时错误 "-2147217887"
ODBC 驱动程序不支持所需属性。

Answer 4

UID=admin
你檢查一下，這用戶的使用權限