Open Access Database with VBA

I want to open a specific Access DB from and Excel button. I tried a
previous sugestion in this forum and It would bring up access but not the
file. Here is what I have: (I'm so colse to being happy!)


Sub test()
On Error Resume Next
Set ac = GetObject(, "Access.Application")
If ac Is Nothing Then
Set ac = GetObject("", "Access.Application")
ac.OpenCurrentDatabase "c:\data\temp\temp.mdb"
ac.UserControl = True
End If
AppActivate "Microsoft Access"
End Sub

User Error....It works

"Bubba" wrote:

> I want to open a specific Access DB from and Excel button. I tried a
> previous sugestion in this forum and It would bring up access but not the
> file. Here is what I have: (I'm so colse to being happy!)
>
>
> Sub test()
> On Error Resume Next
> Set ac = GetObject(, "Access.Application")
> If ac Is Nothing Then
> Set ac = GetObject("", "Access.Application")
> ac.OpenCurrentDatabase "c:\data\temp\temp.mdb"
> ac.UserControl = True
> End If
> AppActivate "Microsoft Access"
> End Sub
>