各位老师帮忙看一下，为什么会出现 语法错误 (逗号) 在查询表达式这中错误呢？

不理解的地方，第一次更新是正常，第二次更新就会提示错误代码了。
如果我把浏览器记录清除，又可以了，再打开又不行了。帮忙看下哦~！万分感谢~！

错误代码如下：
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][ODBC Microsoft Access Driver] 语法错误 (逗号) 在查询表达式 'id = 1, 1' 中。
/Xiaofei/Mod_xf.asp, 第 138 行
代码如下：
第 138 行的代码是： Recordset1.Open() 

完整的是代码是：
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="../Connections/xiaofei.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Update Record: set variables

If (CStr(Request("MM_update")) = "form1" And CStr(Request("MM_recordId")) <> "") Then

  MM_editConnection = MM_xiaofei_STRING
  MM_editTable = "Xiaofei"
  MM_editColumn = "id"
  MM_recordId = "" + Request.Form("MM_recordId") + ""
  MM_editRedirectUrl = "Guanli_xf.asp"
  MM_fieldsStr = "a_nian|value|a_yue|value|a_ri|value|a_wp|value|a_jg|value|a_bz|value"
  MM_columnsStr = "a_nian|',none,''|a_yue|',none,''|a_ri|',none,''|a_wp|',none,''|a_jg|none,none,NULL|a_bz|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
  MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
  If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
  MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
  Else
  MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
  End If
  End If

End If
%>
<%
' *** Update Record: construct a sql update statement and execute it

If (CStr(Request("MM_update")) <> "" And CStr(Request("MM_recordId")) <> "") Then

  ' create the sql update statement
  MM_editQuery = "update " & MM_editTable & " set "
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
  MM_formVal = MM_fields(MM_i+1)
  MM_typeArray = Split(MM_columns(MM_i+1),",")
  MM_delim = MM_typeArray(0)
  If (MM_delim = "none") Then MM_delim = ""
  MM_altVal = MM_typeArray(1)
  If (MM_altVal = "none") Then MM_altVal = ""
  MM_emptyVal = MM_typeArray(2)
  If (MM_emptyVal = "none") Then MM_emptyVal = ""
  If (MM_formVal = "") Then
  MM_formVal = MM_emptyVal
  Else
  If (MM_altVal <> "") Then
  MM_formVal = MM_altVal
  ElseIf (MM_delim = "'") Then ' escape quotes
  MM_formVal = "'" & Replace(MM_formVal,"'","''") & "'"
  Else
  MM_formVal = MM_delim + MM_formVal + MM_delim
  End If
  End If
  If (MM_i <> LBound(MM_fields)) Then
  MM_editQuery = MM_editQuery & ","
  End If
  MM_editQuery = MM_editQuery & MM_columns(MM_i) & " = " & MM_formVal
  Next
  MM_editQuery = MM_editQuery & " where " & MM_editColumn & " = " & MM_recordId

  If (Not MM_abortEdit) Then
  ' execute the update
  Set MM_editCmd = Server.CreateObject("ADODB.Command")
  MM_editCmd.ActiveConnection = MM_editConnection
  MM_editCmd.CommandText = MM_editQuery
  MM_editCmd.Execute
  MM_editCmd.ActiveConnection.Close

  If (MM_editRedirectUrl <> "") Then
  Response.Redirect(MM_editRedirectUrl)
  End If
  End If

End If
%>
<%
Dim Recordset1__MMColParam
Recordset1__MMColParam = "1"
If (Request.QueryString("id") <> "") Then 
  Recordset1__MMColParam = Request.QueryString("id")
End If
%>
<%
Dim Recordset1
Dim Recordset1_numRows

Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.ActiveConnection = MM_xiaofei_STRING
Recordset1.Source = "SELECT * FROM Xiaofei WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""
Recordset1.CursorType = 0
Recordset1.CursorLocation = 2
Recordset1.LockType = 1
Recordset1.Open()

Recordset1_numRows = 0
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>消费记录更新</title>
</head>

<body>
<p><strong>您所在的位置：</strong> 首页 - 消费记录 - 管理消费记录 - 更新记录</p>
<p>&nbsp;</p>

  <form method="POST" action="<%=MM_editAction%>" name="form1">
  <p>&nbsp; </p>
  <table width="50%" border="1" align="center">
  <tr>
  <td width="21%">日期：</td>
  <td width="79%"><select name="a_nian" id="<%=(Recordset1.Fields.Item("a_nian").Value)%>">
  <option value="2008">2008</option>
  <option value="2009">2009</option>
  <option value="2010">2010</option>
  <option value="2011" selected="selected">2011</option>
  <option value="2012">2012</option>
  </select>
  年
   
  <select name="a_nian" id="<%=(Recordset1.Fields.Item("a_yue").Value)%>">
  <option value="1" selected="selected">1</option>
  <option value="2">2</option>
  <option value="3">3</option>
  <option value="4">4</option>
  <option value="5">5</option>
  <option value="6">6</option>
  <option value="7">7</option>
  <option value="8">8</option>
  <option value="9">9</option>
  <option value="10">10</option>
  <option value="11">11</option>
  <option value="12">12</option>
  </select>
  月
  <select name="a_ri" id"<%=(Recordset1.Fields.Item("a_ri").Value)%>">
  <option value="1" selected="selected">1</option>
  <option value="2">2</option>
  <option value="3">3</option>
  <option value="4">4</option>
  <option value="5">5</option>
  <option value="6">6</option>
  <option value="7">7</option>
  <option value="8">8</option>
  <option value="9">9</option>
  <option value="10">10</option>
  <option value="11">11</option>
  <option value="12">12</option>
  <option value="13">13</option>
  <option value="14">14</option>
  <option value="15">15</option>
  <option value="16">16</option>
  <option value="17">17</option>
  <option value="18">18</option>
  <option value="19">19</option>
  <option value="20">20</option>
  <option value="21">21</option>
  <option value="22">22</option>
  <option value="23">23</option>
  <option value="24">24</option>
  <option value="25">25</option>
  <option value="26">26</option>
  <option value="27">27</option>
  <option value="28">28</option>
  <option value="29">29</option>
  <option value="30">30</option>
  <option value="31">31</option>
  </select>
  日</td>
  </tr>
  <tr>
  <td>物品：</td>
  <td><input type="text" name="a_wp" value="<%=(Recordset1.Fields.Item("a_wp").Value)%>" size="26" /></td>
  </tr>
  <tr>
  <td>价格：</td>
  <td><input type="text" name="a_jg" value="<%=(Recordset1.Fields.Item("a_jg").Value)%>" size="8" />
  元</td>
  </tr>
  <tr>
  <td>备注：</td>
  <td><textarea name="a_bz" cols="26"><%=(Recordset1.Fields.Item("a_bz").Value)%></textarea></td>
  </tr>
  <tr>
  <td>&nbsp;</td>
  <td><input name="submit" type="submit" value="更新记录" /></td>
  </tr>
  </table>
  <p>
  <input type="hidden" name="MM_update" value="form1">
  <input type="hidden" name="MM_recordId" value="<%= Recordset1.Fields.Item("id").Value %>">
  </p>
  </form>
  <p>&nbsp;</p>
  <p>&nbsp; </p>
</body>
</html>
<%
Recordset1.Close()
Set Recordset1 = Nothing
%>

自己顶下~！

Recordset1.Source = "SELECT * FROM Xiaofei WHERE id = " + Replace(Recordset1__MMColParam, "'", "''") + ""

Replace（Recordset1__MMColParam, "'", "''")这里面的数据不对