获取当前系统中安装的access的版本号的函数：

Public Function AccessVersionID() As String
   Select Case SysCmd(acSysCmdAccessVer)
     Case 7: AccessVersionID = "95"
     Case 8: AccessVersionID = "97"
     Case 9: AccessVersionID = "2000"
     Case 10: AccessVersionID = "2002"
     Case 11: AccessVersionID = "2003"
     Case 12: AccessVersionID = "2007"
     Case 13: AccessVersionID = "Pirated!"
     Case 14: AccessVersionID = "2010"
     Case 15: AccessVersionID = "2013" Case 16: AccessVersionID = "2016" Case Else: AccessVersionID = "Unknown"
   End Select

 End Function            'AccessVersionID()