We use an Acess Database as a menu of Access Databases. It worked fine until we switched to Office 2007 from 2003. Code is below:
Code:
Private Sub DisclosureQAOPen_Click()
On Error GoTo Err_DisclosureQAOPen_Click

    Dim AccApp As Access.Application
    Dim str As String
    
    str = "\\Fanniemae.com\corp\DC\Shared\MF\MBS\GenDisc\Monitoring\QA\Disclosure QA.mdb"
    Set AccApp = New Access.Application
...