VB +access 这样连接 为什么会提示错误?

Question

Dim conn As New ADODB.connection
  Dim rs As New ADODB.Recordset
  Dim str As String
  Dim intdb As Integer
  conn.CursorLocation = adUseClient
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\school.mdb;Persist Security Info=False"
  Set rs = conn.Execute("select * from news")
    fg.Rows = 0
    fg.Rows = 2
    fg.FixedRows = 1
    Set fg.DataSource = rs
  rs.Close
  conn.Close
  Set rs = Nothing
  Set conn = Nothing

Answer 1

是不是数据库设了密码？还是没在“工程/引用”中钩选“Microsoft ActiveX Data Objects 2.0 Library”项？还是什么其他错误。

Answer 2

引用了 提示.. 对象变量 或 with块变量未设置

Answer 3

cnn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & App.Path & "\db_exp.mdb;Persist Security Info=False"
这个正确
楼主对比一下

Answer 4

修改下试试
if not rs.eof then
  Set fg.DataSource = rs 
end if

Answer 5

在窗体的声明处添加如下代码：
Option Explicit
Dim conn As adodb.Connection
Dim rs As adodb.Recordset

Answer 6

    fg.Rows = 0
    fg.Rows = 2
    fg.FixedRows = 1不知这块程序是在类,还是Form 中??

Answer 7

'这样试试
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Jet OLEDB:Database Password=;Data Source=" & App.Path & "\school.mdb;Persist Security Info=False"
rs.open "select * from news",conn,adopenkeyset,adlockreadonly
Set fg.DataSource = rs