求救asp+excel更新数据问题一则

Question

我想把用户姓名为陈新的记录里，用户编码进行更新，但是用rs.update的，好像不行。请帮忙看看）
<%
Function CreateExcelRecordset(xlsfile,sheet)
Dim rs,conn,Driver,DBPath，ak
ak="陈新"
Set conn = Server.CreateObject("ADODB.Connection")
Driver = "Driver={Microsoft Excel Driver (*.xls)};"
DBPath = "DBQ=" & Server.MapPath( "1.xls" )
conn.Open Driver & DBPath
set CreateExcelRecordset = Server.CreateObject("ADODB.Recordset")
CreateExcelRecordset.Open "Select * From ["&sheet&"$] where [用户编号]='" & ak&"'",conn, 2, 2
End Function
%>
<%
dim num="3220120120"
set rs=CreateExcelRecordset("1.xls","sheet1")
rs("用户编号")=num<%
rs.update
rs.close
%> 

Answer 1

<%
dim num="3220120120"
rs=CreateExcelRecordset("1.xls","sheet1")
rs("用户编号")=num<%
rs.update
rs.close
%>