EXCEL VBAでデータベース操作しようとしたら、「実行時エラー ’13’: 型が一致しません」

ほとんどコピペで、EXCEL VBAでデータベース操作するアプリ実行したら、以下のようなエラーが出る。
ソースもほとんど同じなのに・・・・泣
excelvba13err01

デバッグしても、以下のSQL文を開くとこで止まってる。
excelvba13err02

さんざん、探して、以下に答えがやっと見つかった。
http://support.microsoft.com/kb/181542/ja
Data Access Objects (DAO) ライブラリと ActiveX Data Objects (ADO) ライブラリの両方に対する参照がプロジェクトに含まれている場合、Recordset オブジェクトを宣言すると、ADO ライブラリの優先順位を DAO ライブラリよりも高くした場合に発生するそうな。
VBAエディタで「ツール→参照設定」を選択します。
excelvba13err03

以下の画面で、Microsoft ActiveX Data Objects に対する参照を削除するか、
優先順位設定する矢印で、Microsoft ActiveX Data Objectsを
DAO オブジェクト ライブラリ(ここでは、Microsoft DAO 3.51 Object Library)より下に移動します。
excelvba13err04

これで、エラーが出なくなりました。。。ほっ


コメントは受け付けていません。