Help ADO -- import access query into excel via vba

Here is what I'm trying to accomplish with ADO connections:

In excel, user clicks button:

1) open access database "DPS.mdb
2) run macro name "DPSfile" in access
3) query named "DPS#3: is populated with information
4) copy dps#3 into excel sheet named "actual"
5) close access

This is what I started with not using ADO, and it worked once. Now when I run it again, the query is being pulled from another location from c:\mydocuments. I thought it be better to use ADO versus the query refresh method.

Private Sub obtaincmmsdata_Click()
Dim obtaincmmsdata As String
Dim AC As Object
Set AC = CreateObject("access.application")
AC.Visible = False

AC.opencurrentdatabase (w:\DPS.mdb)
With AC
.DoCmd.RunMacro "DPSfile"
.Quit
End With
Sheets("Actual").Select
Range("E2").Select
Selection.QueryTable.Refresh BackgroundQuery:=False

End Sub

The DPSfile is a database that opens several tables and run multiple queries to get the final data in the correct orientation that I need. The final result of the macro in access is query named DPS#3. The sql view of DPS#3 is

TRANSFORM Sum([BTS TEST].PROD) AS SumOfPROD
SELECT [Department Table].CD_AREA AS Area, "Actual" AS Product, [Department Table].DS_WORK_CNTR AS DepartmentName, [Department Table].NO_WORK_CNTR AS WorkCenter
FROM [Department Table] LEFT JOIN [BTS TEST] ON [Department Table].NO_WORK_CNTR=[BTS TEST].NO_WORK_CNTR
WHERE ((([Department Table].NO_WORK_CNTR)="0" Or ([Department Table].NO_WORK_CNTR)="6637F" Or ([Department Table].NO_WORK_CNTR)="6637A" Or ([Department Table].NO_WORK_CNTR)="6669A" Or ([Department Table].NO_WORK_CNTR)="66683" Or ([Department Table].NO_WORK_CNTR)="66682" Or ([Department Table].NO_WORK_CNTR)="6634F" Or ([Department Table].NO_WORK_CNTR)="6634A" Or ([Department Table].NO_WORK_CNTR)="6631A" Or ([Department Table].NO_WORK_CNTR)="66697" Or ([Department Table].NO_WORK_CNTR)="6627F" Or ([Department Table].NO_WORK_CNTR)="6627A" Or ([Department Table].NO_WORK_CNTR)="6633F" Or ([Department Table].NO_WORK_CNTR)="6633A" Or ([Department Table].NO_WORK_CNTR)="6631F" Or ([Department Table].NO_WORK_CNTR)="6632F" Or ([Department Table].NO_WORK_CNTR)="6632A" Or ([Department Table].NO_WORK_CNTR)="6627E" Or ([Department Table].NO_WORK_CNTR)="6627B" Or ([Department Table].NO_WORK_CNTR)="66689" Or ([Department Table].NO_WORK_CNTR)="66688" Or ([Department Table].NO_WORK_CNTR)="66687" Or ([Department Table].NO_WORK_CNTR)="66681" Or ([Department Table].NO_WORK_CNTR)="66676"))
GROUP BY [Department Table].CD_AREA, "Actual", [Department Table].DS_WORK_CNTR, [Department Table].NO_WORK_CNTR
PIVOT [BTS TEST].[DAY OF THE WEEK];

I was thinking of adding ADO after I run the macro in my above code, and then copy this query into excel, and then close access and the connection.

I appreciate any help you could provide. I'm not familiar with the ADO commands, but I'm willing to learnStart Free Trial