EXCEL (SQL SENTENCE TO VBA)

Hello Experts, I did a Connection to Excel Sheet and AS/400 Databese with VBA and the main purpose is to get the summary by dates, the codes works well, but when I add an other field (this is the field that I add "FKITSAVE.TSPN" is the part Nr), the Macro send a mistake to ODBC, I want to know the quantity issued by part, but just the summary.

AS/400 Databese has:
Part Nr     Qty Issued     Date
A1                   100         01/01/2010
A1                   106         02/01/2010
A1                   109         03/01/2010
A1                   100         04/01/2010
A1                   108         05/01/2010

The summary that I need is:

Part Nr     Qty Issued
A1                   523

This Is my CODE:

Sub IssKBM()

Dim qryTable As QueryTable
Dim rngDestination As Range
Dim strConnection As String
Dim strSQL As String
Dim tpe As String


'Clean File
Sheets("Issues").Select
Range("A1").Select
Selection.CurrentRegion.Select
Selection.EntireColumn.Delete
Range("A1").Select

'Connection to AS/400 (KBM)

strConnection = "ODBC;DSN=AS/400-2;"

Set rngDestination = ActiveSheet.Range("A1")

'Start SQL

strSQL = "SELECT FKITSAVE.TSPN, SUM(FKITSAVE.TSTQTY)" & Chr(13) & "" & Chr(10) & _
        "FROM S10663DC.KBM500MFG.FKITSAVE FKITSAVE" & Chr(13) & "" & Chr(10) & _
        "WHERE (FKITSAVE.TSCO=001) AND (FKITSAVE.TSDATE>1091201) AND (FKITSAVE.TSCODE='13')" & Chr(13) & "" & Chr(10) & _
        "ORDER BY FKITSAVE.TSPN"
       
'Start Qry

Set qryTable = ActiveSheet.QueryTables.Add(strConnection, rngDestination)

qryTable.CommandText = strSQL
qryTable.Refresh False

End Sub

I hope so someone can help me :(