主题：麻烦老师帮我看看，哪儿有问题

Dim r1 As Integer = (vars("Page") - 1) * 6 + 1

 Dim r2 As Integer = vars("Page") * 6

 Dim sql As String 

 sql = "Select * Fr om (Select Row_Number() Over(Order by [业绩] desc) As RowNum, * fr om (select  a.spdm as 货号,b.spmc as 商品名称,avg(a.dj) as 均价, SUM(a.sl) as 业绩,(select  SUM(e.sl)   fr om [14.116.193.208,1588].ERP.dbo.lsthdmx e left join [14.116.193.208,1588].ERP.dbo.lsthd f on  e.djbh=f.djbh where A.spdm=e.spdm and month(f.rq)=datename(month,getdate()) And year(f.rq)=datename(year,getdate()))  as 退货, '\\10.0.0.11\DRP2images\'+b.pic as 图片地址 fr om [14.116.193.208,1588].ERP.dbo.LSXHDMX a left join [14.116.193.208,1588].ERP.dbo.shangpin b on a.spdm=b.spdm left join [14.116.193.208,1588].ERP.dbo.lsxhd c on a.djbh=c.djbh left join [14.116.193.208,1588].ERP.dbo.kehu d on c.dm1=d.khdm where month(c.rq)=datename(month,getdate()) And year(c.rq)=datename(year,getdate())  And d.xzdm=2 And d.lbdm=005 group by a.spdm,b.spmc,b.pic ) as b) As a "

 sql = sql & " Where RowNum >= " & r1 & " And RowNum <= " & r2

 DataTables("商品销售").SQLLoad(sql)