Accessファイルバージョンの取得

質問

教えてください
とあるサイトで、以下のAccessファイルのバージョンを所得するVBAを発見し、実行しましたが、
CurrentProject.FileFormat
のステートメントで、「オブジェクトが必要です」エラーが発生します。

何か解決方法はありますでしょうか？
環境はwinXP+Access97です。

どうかご教授お願いいたします。

'File形式を判別します。
Select Case CurrentProject.FileFormat
Case acFileFormatAccess97
strFormat = "Access 97"
Case acFileFormatAccess2000
strFormat = "Access 2000"
Case acFileFormatAccess2002
strFormat = "Access 2002-2003"
End Select

参照設定は次の通り設定しあります。
Visual Basic For Application
Microfoft Access 8.0 Object Library
OLE Automation
Microsoft ActiveX Data Objects 2.1 Library

よろしくお願いいたします

回答No.1

KenKen_SP

解決策ではありませんが、原因を。

FileFormat プロパティーは Access 2002 で追加されたプロパティですから
Access 97 環境では使えません。

参考URL：

http://msdn.microsoft.com/library/ja/default.asp?url=/library/ja/vbaac10/html/acconNewPropertiesO.asp