实时错误'3706'未找到提供程序。改程序可能未正确安装

昨天在敲下面一个一段代码的过程中遇到了点小麻烦，实时错误'3706'未找到提供程序。改程序可能未正确安装。

Dim strCn As String
Dim strCn As String
        Set objCn = New Connection                                '实例化对象Connection对象objCn
        strCn = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;" & _
                                                          "Data Source=" & App.Path & "\数据库\实例5.mdb"
        objCn.ConnectionString = strCn                          '创建数据库连接
       objCn.Open 

每次运行时都会在“objCn.Open上出现黄色的背景色（我想每一个写程序的人都不希望自己敲的代码上出现这样的颜色吧），加上一个矩形的弹出框显示着”实时错误'3706'未找到提供程序。改程序可能未正确安装。“

后来在网上找了找说是MDAC有问题需要修改注册表。

        可在以下项中找到版本信息：

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess\FullInstallVer

要检查注册表，请按照下列步骤操作：

1. 在“开始”菜单上，单击“运行”。
2. 在“打开”文本框中，键入 regedit，然后单击“确定”；这将启动注册表编辑器。
3. 在导航窗格中，向下浏览到以下路径：

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess

1. 在“详细信息”窗格的“名称”列中，查找“FullInstallVer”和“Version”。其中的每个注册表项在“数据”列中都有相应的版本信息。将两项分别改成”2.82.3959.0“和”2.82.3959.0“。
2. 完成后，单击“注册表”菜单上的“退出”，关闭注册表编辑器。