主题：这句select怎么错了？

Dim sql,s1,s2 As String

s1 ="A001"  ' 窗口合同编号

s2 = "XNME"    'User.group

sql = "select Top 10 项目名称,分公司,工程进度,申报日期 from {工程进度} where 合同编号 = '"

sql=sql & s1 & "' and 分公司 = '" & s2 & "' order by 申报日期 desc"

Output.show(sql)