"I need to take the results of the following query and place them in a .CSV file and then e-mail that file to someone else.  Is this possible using DTS...

Use the connection property of either a pivotcache or querytable... a little sub like this will list them all for you:

Sub showconnections()

Dim pc As PivotCache

For Each pc In ActiveWorkbook.PivotCaches

    Debug.Print...