Hello
I'm not usre if this will help but this is what i used to run a query from access using excel.
You need to make sure your reference library has the access library checked or this wont work.
Dim objAccess As Access.Application
Set objAccess = CreateObject("Access.Application")
objAccess.OpenCurrentDatabase filepath:= _
"H:\Steve's file\Tasks To Do\Pivot Table\backup old style calculation\db1.mdb"
objAccess.DoCmd.TransferSpreadsheet _
TransferType:=acExport, _
SpreadsheetType:=acSpreadsheetTypeExcel8, _
TableName:="Data", _
Filename:="H:\Steve's file\Tasks To Do\Pivot Table\Pivot Place\Query" & Format(Date, "ddmmyy") & ".xls", _
HasFieldNames:=True, _
range:="Sheet1"
objAccess.Quit
Set objAccess = Nothing
hope this helps