主题：请教sql语句

Dim y As Integer = 2020 '指定年份
Dim dt1 As New Date(y, 1, 1)
dim sql as string = "select 产品  ,单位, （select SUM(入库数量 - 出库数量)  from 库存明细 where 出入库日期  >= #" & dt1 & "# and 出入库日期  < #" & dt1.addmonths(1) & "# and 产品=a.产品 and 单位=a.单位 group by 产品  ,单位）AS 1月库存,select SUM(入库数量 - 出库数量)  from 库存明细 where 出入库日期  >= #" & dt1 & "# and 出入库日期  < #" & dt1.addmonths(1) & "# and 产品=a.产品 and 单位=a.单位 group by 产品  ,单位）AS 2月库存 from 库存明细 as a"