WindowsXPのアップデートを行ったらエラーが発生

質問

VB6.0で下記プログラムを作成したが、
WindowsXPのアップデートを行ったらエラーが発生するようになった。

==プログラム
Public Cn_Tables As ADODB.Connection

Public Sub DB_Open()

Set Cn_Tables = New ADODB.Connection

Cn_Tables.ConnectionString = "Driver=Microsoft Access Driver (*.mdb);" & _
"DBQ=" & App.Path & "\TEST.MDB"

Cn_Tables.Open
End Sub

==エラー内容
「オートメーション エラーです。
指定されたプロシージャが見つかりません。 」
※Openメソッド実施でエラー発生

回答No.2

2ch

訂正
↓うそ
其の九.3行目の「Provider=」より右側の文字列(Microsoft******)をコピー

↓本当
其の九.3行目を全てコピー

回答No.1

2ch

其の一.新規テキストファイルを作成。

其の二.拡張子を[txt]→[UDL]に変更

其の三.UDLファイルを実行

其の四.「プロバイダ」タブでJet4を選択→次へ

其の五.「接続タブ」でファイルパスを設定

其の六.接続テストを行う
(ここで問題があるなら、Jetドライバを3.xxにして再度設定)

其の七.OKボタンで閉じる

其の八.UDLファイルをテキストエディタで開く

其の九.3行目の「Provider=」より右側の文字列(Microsoft******)をコピー

其の十.以下の置き換え
Cn_Tables.ConnectionString = 《コピーした文字》
もしくは
Cn_Tables.ConnectionString = 《UDLファイルのフルパス》

これでどう？

お礼

御礼遅くなりましたが、一応やってみましが、あまりうまく行かず、後々を考えたときに、ADO→DAOにするようにプログラムの変更をしてみたいいと思います。
今回は、ありがとうございました。