VBAでAccessのバージョンを確認するときは、Application.SysCmd(c_acSysCmdAccessVer)を使う

新しいバージョンでは問題ないが、Access2000ではなぜかApplication.Versionが実装されていないようなので、oAccessApp.SysCmd(c_acSysCmdAccessVer)を利用した方がよい。
Excel2000ではApplication.Versionは存在するようだ。

Const c_acSysCmdAccessVer = 7
Dim nVer As Integer
nVer = oAccessApp.SysCmd(c_acSysCmdAccessVer)