主题：汇总

For Each dr As DataRow In DataTables("坯布入库汇总").DataRows
    Tables("坯布入库汇总").Current.Delete
Next
With e.Form.Controls("dt_pbrk_时间")
   If .Value IsNot Nothing Then
   DataTables("坯布入库汇总").Fill("Select ddbhID,jth,pm,ddbh,dj,SUM(lbzl) as Tlbzl FROM {坯布_入库} where rkrq=#" & e.Form.Controls("dt_pbrk_时间").Value  & "# GROUP BY ddbhID,jth,pm,ddbh,dj",True)
   End If
End With

请各位帮忙查看下这代码错在哪里？谢谢

坯布入库汇总是内部数据源，坯布_入库是外部数据源，我现在 rkrq>= '" 也改过来了 数据还是没有导进去

提示说 select 语句执行错误