我下面的语句不能打开access2000，只能打开access97,我应该怎样改？

Question

Global Const DEFSOURCE = "PROVIDER=Microsoft.Jet.OLEDB.3.51;Persist Security Info=False;Data Source="
Public db As ADODB.ConnectionPublic Sub OpenDB()
    Set db = New ADODB.Connection
    db.Open DEFSOURCE & App.Path & "\db.MDB;"
    DEnv.Connection1 = DEFSOURCE & App.Path & "\db.MDB;"
End Sub

Answer 1

Global Const DEFSOURCE = "PROVIDER=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source="/////////就改为4.0
Public db As ADODB.ConnectionPublic Sub OpenDB()
    Set db = New ADODB.Connection
    db.Open DEFSOURCE & App.Path & "\db.MDB;"
    DEnv.Connection1 = DEFSOURCE & App.Path & "\db.MDB;"
End Sub

Answer 2

已经改过来了，可以连接了，但是程序里面有些报错：  If Not DEnv.rsCommand5.State = adStateClosed Then DEnv.rsCommand5.Close“不可识别的数据库"是不是不支持这条语句呀？

Answer 3

将jet3.51改成jet4.0
将DATA控件改成ADO控件