VB code for button on form in Access

[Mac1206]

I tried using this VB script for my button but it errors out telling me my DB is already open (I'm trying to open another DB from within my main DB form On_Click...Can anyone assist me in this, I'm new to VB....Thanks

Private Sub Command50_Click()


Dim appAccess As New Access.Application


Set appAccess = Access.Application


appAccess.OpenCurrentDatabase "E:\Source\Distribution\MSCS Disbursements.accdb"


appAccess.Visible = True


End Sub

 

[xenou]

Dim appAccess As New Access.Application


Set appAccess = Access.Application

The second line seems to be the one that's more important - it appears to overwrite or undo whatever the first one is doing. In general I don't like having two access applications open. Why not use only one? You can connect the tables from either one.