codice:
    
    Set Access_App = CreateObject("Access.Application")
    MsgBox Access_App.Application.Version