Mi dà un errore!
Dim Access_App As Access.Application
Set Access_App = CreateObject(Access.Application)
MsgBox Access_App.Application.Version

di Version e mi dice che Impossibile trovare il mettodo o il membro di dati