请问怎么样在VB中打开.mdb数据库？

Question

这样写，提示“错误3343，不可识别的数据库格式”Private Sub Command1_Click()If Right(App.Path, 1) = "\" Then
Path1 = App.Path
Else
Path1 = App.Path & "\"
End If     'Open the DataBase
      Set db = OpenDatabase(Path1 & "Recipe.mdb")
      'Open the RecordSet to get the Categories List
      Set rs = db.OpenRecordset("Category")
      rs.MoveFirst
For i = 1 To rs.RecordCountText1.Text = Text1.Text + rs.Category
rs.MoveNext
Next i
rs.Close: Set rs = Nothing:
End Sub

Answer 1

用 DAO 或 ADO 正确访问 Access 2000 
当你使用 DAO 访问 Access 2000 时，是否会出現以下的错误信息？"Run-time error 3343 Unrecognized Database Format XXX"这个错误信息有二个解決的方式：1、如果你是使用 Data Control 来连結 Access 2000 的资料库时：你必須在設定 Data Control 的 Source 前先加上一行
Set Data1.Recordset = rsDAO36 'rsDAO36 is a DAO 3.62、如果你是引用「Microsoft DAO 3.51 Object Library」来访问 Access 2000 的资料库时：請加入【工程】【部件】「Microsoft DAO 3.6 Object Library」
如果你是使用 ADO 访问 Access 2000以往在 VB6 中利用 ADO OLEDB Provider 3.51 使用 Access 97 資料库，程序都能正常的執行。但是自从將 Access 97 升級到 Access 2000 之后，就无法順利的使用 Access 2000 資料库了，不知道您是否也曾遇到这样的情形呢？其实这种事情在 Microsoft 已经是思空見慣的事情了！任何软件只要有了新的版本，就会有和旧版本不相容的问题产生！而這一次是因为 Access2000 己经使用 Jet 4.0 Engine，所以解決方法如下：
在您的 ADO 的 Connect String 中的 Provider 必須修改为："PROVIDER=Microsoft,Jet.OLEDB.4.0" 

Answer 2

两种可能
1.
那是你的数据库坏了
试试用access能打开吗2.
用access2000建的库 在vb6中用的是 microsoft Dao3.5 改成 microsoft dao3.6 就行了
（要找到dao3.6 去下载个vb6sp5即可）

Answer 3

你的语句没错
若还有问题可 mailto : [email protected]