TRANSFORM语法错误请教

我在做个图表查询时候遇到语法错误的问题，请指教哪里错了。

Private Sub btnSeach_Click()
    Dim strWhere As String


    
    Const xlCategory = 1    '在这里声明常量是为了去掉图表类型库的引用后代码也能正常运行


    '取得查询条件，日期用Format函数进行格式化是为了更好的兼容性，在任何地方都不会出错
    If Not IsNull(Me.开始日期) Then strWhere = strWhere & " AND 报价日期>=#" & Me.开始日期 & "#"
    If Not IsNull(Me.截止日期) Then strWhere = strWhere & " AND 报价日期>=#" & Me.截止日期 & "#"
    If Not IsNull(Me.品名) Then strWhere = strWhere & " AND 品名='" & Me.品名 & "'"


    '由于最后生成的条件最前面始终会多出一个“ AND ”，所以这里要将其去掉，并且如果条件不为空在前面加上 WHERE 关键字
    strWhere = Mid(strWhere, 6)


    '设置子窗体的筛选器条件
    Me.sfrList_MX.Form.Filter = strWhere
    '应用筛选
    Me.sfrList_MX.Form.FilterOn = True
    '根据查询条件重置图表数据源

    Me.Graph.RowSource = " TRANSFORM Sum(价格) AS 价格合计" _
                       & " SELECT AS 报价日期" _
                       & " FROM qry_原材料动态报价图 & strWhere" _
                       & " GROUP BY 报价日期" _
                       & " PIVOT 品名;"


End Sub