Are you sure
qry_MakeTrustTable_Adhoc exists as a Visual Basic macro within that database? If yes, try this

Code:
Dim strDatabasePath As String
Dim appAccess As Access.Application
 
strDatabasePath = "C:\Users\zachk\Desktop\Strats 2011.01.accdb"
Set appAccess = New Access.Application
With appAccess
    .OpenCurrentDatabase strDatabasePath
    .Run "qry_MakeTrustTable_Adhoc"
    .Quit
End With
Set appAccess = Nothing