AccessVBAのCurrentDbメソッドでエラーになります

質問

Windows2000、Access2000を使っています。

オンラインヘルプを参考に作った下記のプログラムを走らせると、Set db = CurrentDbのところで「実行時エラー13:型が一致しません」のエラーになります。どうしてでしょう。

Sub b()

Dim db As DAO.Database
Dim tdf As DAO.TableDef
Dim fld As DAO.Field

Set db = CurrentDb
Set tdf = db.TableDefs("テーブル1")

For Each fld In tdf.Fields
Debug.Print fld.Name
Next fld

End Sub

参照設定を見ると、Microsoft dao 3.0 Object LibraryにチェックがついていますのでDAOは使えるはずなんですが・・・。

回答No.1

myRange · ベストアンサー

Accessは持ってないので検証できませんが、、

＞Microsoft dao 3.0 Object Libraryにチェックがついています

それ古すぎませんか？

　　Microsoft DAO ３.６ Object Library

にしてみたらどうでしょう。

以上です。

お礼

3.6にしたら動きました。

実は今さらAccess95からバージョンアップしたファイルなのが敗因だったようですが、それにしても自分で気が付かないなんて、恥ずかしくて死にそうです。

ありがとうございます。