vb和vba同样的代码，vba报错

Question

    Dim cn As New ADODB.Connection
    Dim DBName, conStr As String
    DBName = "c:\CheckSystem.mdb"
    conStr = "Provider=Microsoft.Ace.OleDB.12.0;Data Source =" & DBName & ";Persist Security Info=False;"
    Set cn = New ADODB.Connection
    If cn.State <> adStateOpen Then
       cn.Open (conStr)
    End If

同样的代码，在vb环境下通过

在vba下提示

cn.open 这一行，报错

1.尝试安装AccessDatabaseEngine无效

2.删除office2007重新安装office2007无效

3.

有请大神解答

Answer 1

这个出错，软件有错误 可参考https://blog.csdn.net/weixin_42750611/article/details/106038198