Following appears to work satisfactorily with Access 2002 and Access 2007.
You will need to test with other versions.

Sub TestAccessVersion()


'9 = Access 2000
'10 = Access 2002/XP
'11 = Access 2003
'12 = Access 2007

Dim objAccess As Object

Set objAccess = CreateObject("Access.Application")

MsgBox objAccess.Version

objAccess.Quit

Set objAccess = Nothing

End Sub

--
Regards,

OssieMac