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