肯德基式快餐:VB出现'80040E14'update语句的语法错误

Public Sub Update(ByVal TmpComputerNo As String)
'设置UPDATE语句
SqlStmt = "Update Computers Set TypeId=" + Trim(TypeId) _
+ ", ComputerName='" + Trim(ComputerName) _
+ "',SaleId=" + Trim(SaleId) + ",BuyDate='" + Trim(BuyDate) + "'," _
+ "MendNo='" + Trim(MendNo) + "',MendId=" + Trim(MendId) + "," _
+ "MendType='" + Trim(MendType) + "',MendSdate='" + Trim(MendSdate) + "'," _
+ "MendEdate='" + Trim(MendEdate) + "',Deposit=" + Trim(desposit) + "," _
+ "DayPrice=" + Trim(DayPrice) + ",WeekEndPrice=" + Trim(WeekEndPrice) + "," _
+ "WeekPrice=" + Trim(WeekPrice) + "," _
+ "MonthPrice=" + Trim(MonthPrice) + "," _
+ "OverTimePrice=" + Trim(OverTimePrice) + "," _
+ "Status='" + Trim(Status) + "',Comment='" + Trim(Comment) _
+ "' WHERE ComputerNo='" + Trim(TmpComputerNo) + "'"
'执行SQL语句
SQLExt (SqlStmt)
End Sub
数据类型： ComputerNo As String， TypeId As Long，ComputerName As String， SaleId As Long， BuyDate As String， MendNo As String，MendId As Long， MendType As String， MendSdate As String， MendEdate As String， Deposit As Long，DayPrice As Long，WeekEndPrice As Long，WeekPrice As Long，MonthPrice As Long， OverTimePrice As Long， Status As String，Comment As String，
我用的是access
在窗体中是调用类模块里的SQL语句来实现更新的
日期是输入到文本框里
照你那么说不是固定了日期拉？