Function CloseObj()

If IsObject(rs) then 

if rs.state=1 then rs.close

 Set rs = Nothing 'if Not rs Is Nothing Then 不用判断了，直SET，另typeName(rs) = "Nothing" 

end if

If IsObject(conn) then 

if conn.state=1 then conn.close

Set conn = Nothing

end if

End Function