Detecting Vista

[PC User]

I finally figured it out. I'm posting this for other who can use it.
=====================================
Public Function AccessVersion()
Dim objRetVal As Integer
Set objAccess = CreateObject("Access.Application")
objRetVal = objAccess.SysCmd(acSysCmdAccessVer)

Select Case objRetVal
Case "8.0"
AccessVersion = "97"
Case "9.0"
AccessVersion = "2000"
Case "10.0"
AccessVersion = "2002"
Case "11.0"
AccessVersion = "2003"
Case "12.0"
AccessVersion = "2007"
End Select
Set objAccess = Nothing

End Function
=====================================