<%
database = "bank.mdb"                       
StrConnect = "Driver={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath(database)
Set objConn = Server.CreateObject ("ADODB.Connection") 
objConn.Open StrConnect                    
objConn.BeginTrans            
objConn.Execute"Update bank set money=money-100 where name = 'bank'"    
objConn.Execute "Update bank Set money=money-100 where Name='Tom'"
objConn.CommitTrans                    
objConn.Close                        
%>

出现如下错误：

Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] UPDATE 语句的语法错误。
/源程序/08/EXAMPLE5.ASP, 第 13 行


什么原因呢？