I have an Access ADP in which I have used for a long time. Since the upgrade of Office 2013 pro apparently Access 2013 no longer support ADP, Also you cannot just choose which applications in Office 2013 as you could before. I can install the older version of Access and if I right click the ADP and open with Access 2003 it will open. I however use a script to open the ADP (in the past) to force the database to open with lower security to avoid the prompts. The problem now though is that when I run this script it tries to open the ADP from Access 2013 which errors saying that Access 2013 no longer supports ADP files.
is there a way to force the script to open the ADP with Access 2003?
Const cDatabaseToOpen = "C:\Users\Username\AppData\Local\Dbase.adp"
On Error Resume Next
Set AcApp = CreateObject("Access.Application")
If Val(AcApp.Version) >= 11 Then
AcApp.AutomationSecurity = 1 ' msoAutomationSecurityLow
AcApp.Visible = True
If AcApp.CurrentProject.FullName <> "" Then
AcApp.UserControl = True
MsgBox "Failed to open '" & cDatabaseToOpen & "'."