窗体中对交叉表子窗体进行查询，点击查询出现如下错误提示，哪里出现了问题？

做了一个窗体对交叉表子窗体进行查询，点击查询出现如下错误提示，如何解决？

查询按钮代码如下：

Private Sub Command5_Click()
    
    On Error GoTo Err_cmd查询_Click


    Dim strWhere As String  '定义条件字符串
    Dim qdf As DAO.QueryDef    'qdf被定义为一个查询定义对象
    Dim strSQL As String
    strWhere = ""    '设定初始值－空字符串


    If Not IsNull(Me.Combo3) Then
              strWhere = strWhere & "([年份] = " & Me.Combo3 & ") AND "
    End If
   '
    If Len(strWhere) > 0 Then


        strWhere = Left(strWhere, Len(strWhere) - 5)
    End If




    If Len(strWhere) > 0 Then
        strSQL = "TRANSFORM Sum(qry_ksfhz.ksfbz) AS ksfbz之合计 SELECT qry_ksfhz.jsxm, Sum(qry_ksfhz.ksfbz) AS 总计 FROM qry_ksfhz "
        strSQL = strSQL & "WHERE(" & strWhere
        strSQL = strSQL & ") GROUP BY qry_ksfhz.jsxm  PIVOT Format([skrq],'YYYY-mm')"


    Else
        strSQL = "TRANSFORM Sum(qry_ksfhz.ksfbz) AS ksfbz之合计" & _
                 " SELECT qry_ksfhz.jsxm" & _
                 " FROM qry_ksfhz" & _
                 " GROUP BY qry_ksfhz.jsxm" & _
                 " PIVOT Format([skrq],'YYYY-mm')"
    End If


    Set qdf = CurrentDb.QueryDefs("qry_ksfhz_交叉表")
    qdf.SQL = strSQL
    qdf.Close


    Set qdf = Nothing


    Me.qry_ksfhz_交叉表1_子窗体.SourceObject = ""
    Me.qry_ksfhz_交叉表1_子窗体.SourceObject = "查询.qry_ksfhz_交叉表"
    


Exit_cmd查询_Click:
    Exit Sub


Err_cmd查询_Click:
    MsgBox Err.Description
    Resume Exit_cmd查询_Click
End Sub


是哪里出现了问题呢？