SQL文在数据库中运行正常，但是在VS2008中报“缺少右括号”，请问怎么解决！

Question

 SELECT
     EQUIPTYPE,
     SUM(CASE WHEN TO_CHAR(APPLDATE,'MM')=12 THEN APPLQTY ELSE '0' END) AS MONTH
 FROM
     I_EQUIPMENT_BUDGET
 WHERE
       TO_CHAR(APPLDATE,'YYYY')=TO_CHAR(SYSDATE,'YYYY')
 GROUP BY
     EQUIPTYPE
可以正常运行，但是在 
With strSQL
    .Append(" SELECT").Append(vbCrLf)
    .Append("     EQUIPTYPE,").Append(vbCrLf)
    .Append("     SUM(CASE WHEN TO_CHAR(APPLDATE,'MM')=1 THEN APPLQTY ELSE '0' END)  MONTH").Append(vbCrLf)
    .Append(" FROM").Append(vbCrLf)
    .Append("     I_EQUIPMENT_BUDGET").Append(vbCrLf)
    .Append(" WHERE").Append(vbCrLf)
    .Append("       TO_CHAR(APPLDATE,'YYYY')=TO_CHAR(SYSDATE,'YYYY')").Append(vbCrLf)
    .Append(" GROUP BY").Append(vbCrLf)
    .Append("     EQUIPTYPE").Append(vbCrLf)
End With  中说缺少右括号，我个人认为问题出现在黑体部分，但不知如何解决，麻烦个人帮忙！！！

Answer 1

是oracle语法，但是看不出那里少括号

Answer 2

对啊！而且我把运行中的SQL文拷在数据库中运行都是正常的啊！

Answer 3

到你的VS中print  SQL 语句 然后到数据库中执行一下 看看哪里出错了！