sql - VB6 を使用したクエリ:しかし、間違った合計が表示される

Question

私は Vb6 でこのクロスクエリを書きました:

q = "TRANSFORM Count(Ans.Proc) AS ConteggioDiProc "
q = q & "SELECT Ans.Codice, Count(Ans.Proc) AS [Totale di Proc] From 
Ans GROUP BY Ans.Codice "
q = q & "PIVOT Format([Periodo],'mmm') In 
('gen','feb','mar','apr','mag','giu','lug','ago','set','ott','nov','dic');"
Data1.RecordSource = q
Data1.Refresh

MS Access 内では問題ありません (合計列は月の合計です) が、VB6 環境内では列の数字が間違っており、毎月の合計 (合計) と同じです!

内部アクセスは次のとおりです（これは正しいです）：

VB6の内部は次のとおりです。

VB6内でこの奇妙な動作を解決するのを手伝ってくれる人はいますか?