下面的字符串老是报错!怎么写啊!  
 Dim UpdataStr As String
   UpdataStr = "Update Product_Info Set [Prod_Name] = '" & ProdName.Text & "'," & _
                                     " [ENGLISH_CODE]='" & EnglishCode.Text & "'," & _
                                     " [PROD_AMOUNT]='" & Val(ProdPrice.Text) & "'," & _
                                     " [PROD_TYPE]='" & ProdType.Text & "'," & _
                                     " [MODIFY_BY]='" & ProdType.Text & "'," & _
                                     " [MODIFY_DATE]=" + Now & _
                                     " Where [Row_ID] =" + Val(ComClass.Rs.Fields("Row_ID").Value)
MsgBox UpdataStr