asp代码出现缺少对象错误 运行时错误 '800a01a8'

<%
If Request("action")="shenhe" Then
Call ChkReg()
End If

Sub ChkReg()
Dim memo2
memo2 = Trim(Request.Form("caigou1"))
select case memo2
case "自"
'增加居民数据记录
Dim Rs,Sql
if request("id")<>"" then sersach=" and ID like '%"&request("id")&"%'"
Sql = "Select * From [DB_yy] where ID>0 "&sersach&" Order By ID Desc"
Rs.open Sql,conn,1,3
Rs("memo2") = memo2
case "中"

if request("id")<>"" then sersach=" and ID like '%"&request("id")&"%'"
Sql = "Select * From [DB_yy] where ID>0 "&sersach&" Order By ID Desc"
Rs.open Sql,conn,1,3
Rs("memo2") = memo2
case "公"

if request("id")<>"" then sersach=" and ID like '%"&request("id")&"%'"
Sql = "Select * From [DB_yy] where ID>0 "&sersach&" Order By ID Desc"
Rs.open Sql,conn,1,3
Rs("memo2") = memo2
case "其"

if request("id")<>"" then sersach=" and ID like '%"&request("id")&"%'"
Sql = "Select * From [DB_yy] where ID>0 "&sersach&" Order By ID Desc"
Rs.open Sql,conn,1,3
Rs("memo2") = Trim(Request.Form("qitaneirong"))
end select
Rs.Update
Rs.Close
Set Rs = nothing
Response.Write ""
Response.End

End Sub

%>

set rs=Server.CreateObject("ADODB.Recordset")dim rs 后面加一句

没看明白你在做什么