Select + Update = ?

[sanfermin]

Me da el siguiente error :(

The connection cannot be used to perform this operation. It is either closed or invalid in this context.

las lineas de codigo referentes son estas, xq? :(

id = Request.QueryString("id")

Dim conn,rs
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};" & "DBQ=" & Server.MapPath("miBD.mdb") & ";"
Conn.Execute "Update flash Set clicks = clicks + 1 Where Id = " & Request.QueryString("Id")
Set rs = Server.CreateObject("ADODB.RecordSet")

rs.open"SELECT id,nombre,alto,ancho,descripcion FROM flash WHERE id="&id&";"