Look up the VBA Help for the QueryTable object and CommandText

Sub ListQTs()
Dim ws As Worksheet, qt As QueryTable
On Error Resume Next ' ignore errors getting SQL CommandText
For Each ws In ActiveWorkbook.Worksheets
For Each qt In ws.QueryTables
Debug.Print qt.Name, qt.Connection
Debug.Print vbTab, qt.CommandText
Next
Next
End Sub