冰山皇室公主殿下:rs.update哪里有问题啊！

x_HrefID = Request.Form("x_HrefID")
x_Name = Request.Form("x_Name")
x_Url = Request.Form("x_Url")
x_CategoryID = Request.Form("x_CategoryID")

' Open record
strsql = "SELECT * FROM [Href] WHERE 0 = 1"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strsql, conn, 1, 2
rs.AddNew
tmpFld = Trim(x_Name)
If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("Name") = tmpFld
tmpFld = Trim(x_Url)
If Trim(tmpFld) & "x" = "x" Then tmpFld = Null
rs("Url") = tmpFld
tmpFld = x_CategoryID
If Not IsNumeric(tmpFld) Then tmpFld = 0
rs("CategoryID") = CLng(tmpFld)
rs.Update老是说我的这个地方有问题！哪里有问题啊！高手帮忙看一下啊！气死我了
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
Response.Clear
Response.Redirect "Hreflist.asp"
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]行中有错误
/myblog/CodeResource/admin/Hrefadd.asp, 第 249 行