fechar conexão com bd

[Guest --Marcos --]

como eu faço pra fechar conexão nesse código ? grato

<%
Dim login,senha,conexao,constr,rs
login = request.Form("login")
senha = request.Form("senha")

set conexao = createobject("AdoDb.connection")
constr = "Driver={Microsoft Access Driver (*.mdb)};DBQ="& server.MapPath("senhas.mdb")
conexao.open constr

set rs = conexao.execute("SELECT * FROM users WHERE login='"&login&"' AND senha='"&senha&"'")

if rs.eof then
response.Redirect("errou.asp")
else

response.Cookies("logado")=login
response.cookies("logado").expires="31/12/2010"

'response.redirect("http://www.ms4net.com.br/loja/paginas/grau1.htm?target=ifr")

response.Redirect ""& rs("url")
end if
%>

[Guest maus®]

conexao.Close

Set conexao = Nothing