不可识别的数据库格式

Question

 Dim mydb1 As Database
  Dim myrs1 As Recordset
  If gys(0).Text <> "" And gys(1).Text <> "" Then
     Set mydb1 = OpenDatabase(App.Path + ".\IMS.mdb")
     Set myrs1 = mydb1.OpenRecordset("gys", dbOpenTable)。。提示，不可识别的数据库格式 路径+IMS.mdb
我用的ACCESS2000  

Answer 1

更新 MDAC。
检查连接字符串，使用jet.4.0连接。
确认数据库文件本身没有损坏。

Answer 2

更新 MDAC。
检查连接字符串，使用jet.4.0连接。
确认数据库文件本身没有损坏。

Answer 3

选 工程-引用 菜单，选中 microsoft dao 3.6 object library，把低于它版本的 DAO 库引用去掉。