リアルタイムエラー'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
レジストリを確認するには、次の手順に従います.

[開始](Start)メニューで、[実行](Run)をクリックします.

「開く」テキスト・ボックスにregeditと入力し、「OK」をクリックします.レジストリエディタが起動します.

ナビゲーション・ペインで、次のパスを参照します:

HKEY_LOCAL_MACHINE\Software\Microsoft\DataAccess

[詳細]ペインの[名前]列で、[FullInstallVer]および[Version]を検索します.各レジストリ・アイテムには、「データ」列に対応するバージョン情報があります.2つの項目をそれぞれ「2.82.3959.0」と「2.82.3959.0」に変更します.

が完了したら、「レジストリ」メニューの「終了」をクリックしてレジストリエディタを閉じます.

私が修正した後、私の問題はそうではないことに気づいて、間違いはいつも通りに現れて、そこで私を呼んでまたコードをもう一度たたいて、解決しました(もちろんまたいくつかの重要でない問題が現れました).
このことから、問題が発生したことが分かりました.1、冷静に対処し、ネットで資料をたくさん探してください.
2、本のコードを盲目的に否定しないで、自分に問題があるかどうかをよく見てください.
3、細部に注意し、辛抱強くしなければならない.