主题：这句select怎么错了？

select 项目名称，分公司，工程进度，申报日期 from {工程进度}  where 合同编号=”&“’”合同编号“‘&” andalso 分公司="&'"User.group"'&" order by 申报日期 10

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)