vba中执行SQL Group的怪问题

[guxiangdefeng]

各位大虾
我在vba里有如下代码
Dim strSql As String
Dim reCordEntity As New ADODB.Recordset

strSql = "select [COMMITEM2],[COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9],"
strSql = strSql & "sum([COMMITEM26]) as COMMITEM26, sum([COMMITEM50]) as COMMITEM50"
。。。

strSql = strSql & " from [commMtlHearMatlDataTable$]"
strSql = strSql & " group by [COMMITEM2], [COMMITEM16],[COMMITEM17],[COMMITEM18],[COMMITEM7],[COMMITEM9]"

If conn.State = adStateOpen Then
reCordEntity.Open strSql, conn, adOpenKeyset, adLockOptimistic

Do Until reCordEntity.EOF
Call groupsheetmaker(reCordEntity)
reCordEntity.MoveNext
Loop
reCordEntity.Close
End If

碰到一个奇怪的问题：
commMtlHearMatlDataTable 这个sheet里上面6个集计列，任何一列是全空，集计就不成功
哪位大虾有高招？