为什么回出现“不可识别得数据库格式”

Question

一下是源代码：
Option ExplicitPrivate Sub Form_Load()
Dim dbname As String
Dim db As Database
Dim qdef As QueryDef
Dim td As TableDef    ' Open the database.
    dbname = App.Path
    If Right$(dbname, 1) <> "\" Then dbname = dbname & "\"
    dbname = dbname & "fina.mdb"
    Set db = OpenDatabase(dbname)    ' List the table names.
    For Each td In db.TableDefs
        ' Do not allow the system tables.
        If Left$(td.Name, 4) <> "MSys" Then _
            List1.AddItem td.Name
    Next td    db.Close    ' Attach the Data control to the database.
    Data1.DatabaseName = dbnameEnd SubPrivate Sub List1_Click()Dim table_name As String
Dim sql As String
    
    table_name = List1.List(List1.ListIndex)
    sql = "SELECT * FROM " & table_name
    Data1.Caption = table_name
    Data1.RecordSource = sql
    Data1.Visible = True
    
   ' MSFlexGrid1.DataSource = Data1
    'MSFlexGrid1.DataField = List1.List(List1.ListIndex)
    Data1.Refresh
    
    ' Make the Data and DBGrid controls visible.
    
    MSFlexGrid1.Visible = TrueEnd Sub
我用的是access2000。
还有一个小问题是，有一次运行得时候为什么会出现“next缺少for语句”。

Answer 1

加了if,结束时候忘了家end了
用这样写试试
dbname = app.path & "\fina.mdb"
还有你创建的是ACCESS数据库吗

Answer 2

我测试过你的代码，没有问题的
它将所有表名添加到LISTBOX中你用ACCESS打开你的数据库，看是否能打开引用 Microsoft Dao 3.6

Answer 3

回复 ：csdngoodnight(居然比我还快，你真行！）
access97，是可以的！
但是为什么2000不行呢！回复： lihonggen0(李洪根,用.NET，标准答案来了)
我的数据库就是用access2000做的！－－－－－－－－－－－－－－－－－－－－－－－－－－－
我想问一下怎么引用Microsoft Dao 3.6

Answer 4

VB老版本的只能识别97版的access数据库。
你要先安装最新版的mdac_typ.exe文件，微软网上有的下，最新版本为:2.7
你首先要在VB菜单中：
“工程”－－＞“引用”－－＞“Microsoft DAO 3.6 Object Library”

Answer 5

升级MDAC_TYP,
将VB打上SP5也行.

Answer 6

呵呵，引用DAO 3.6，它才支持ACCESS 2K

Answer 7

我已经引用DAO 3.6，但还是不行！
我快让微软搞s了！
数据库大不开我什么也做不了！
无论哪位能够帮我解决！给多少分都可以！
急切等待！
什么地方可以下SP5！告诉小弟一声！

Answer 8

还有如果我改用ado的话！应该做哪些修改！先谢了！

Answer 9

DAO3。6才支持2000数据库的，引用3.6嘛

Answer 10

呵呵，你用的Data控件？那再怎么引用也没用的，因为引用只是针对对象，控件必须要打补丁的引用ADO也很容易的，掌握好Connection对象和Recordset对象就可以了