VBA Queries in another DB

[AJHY]

Hi

I have a blank DB where I have a button to open another DB and 'try' to run queries located in there, but when my code runs it tries to run the query name in the blank DB rather than the newly opened DB.

Is there anyway in code to activate the newly opened DB in order to run the queries.

The code I have is

 
Dim objAccess As Access.Application
Dim strDB1 As String
Const strConPathToSamples = "C:\My Documents\db1.mdb"
 
Set objAccess = CreateObject("Access.Application")
With objAccess
.OpenCurrentDatabase (strConPathToSamples)
End With
 
 
DoCmd.TransferSpreadsheet acExport, acSpreadsheetTypeExcel9, "1 CHECK FILE STATUS QUERY", "C:\My Documents\\Manual Checks\MC", True
 
 

Thanks in advance

Andy