INFO: Deploy Database Applications with the Package and Deployment Wizard (PDW) (Q213846)
http://support.microsoft.com/default.aspx?scid=kb;en-us;Q213846
Dim x As Object
On Error Resume Next
Set x = CreateObject("Access.Application")
If Err.Number <> 0 Then
'没有安装Access.
Else
if x.Version="8" then
msgbox "Access97"
else if x.Version="9"
msgbox "Access2000"
else
msgbox "Access" & x.Version
end if
End If