a=msgbox("本软件需要Office Access套件,如果需要下载Access2007请点击确定,如果已安装过请点击取消!",1,"提示")
if a=1 then
strURL="http://download.microsoft.com/download/1/B/4/1B4D1BBA-5956-452E-9A86-C04270D4C442/AccessRuntime.exe" 
Set objShell = CreateObject("Wscript.Shell") 
objShell.Run(strURL)
end if

 





