+ nuværende værdi med 1

Jeg har denne kode. Jeg vil gerne ha lavet sådan at kode går ind i databasen ( db.mdb) videre ind i banner også i [Click] og +'er den nuverende værdi med 1 hver gang "koden" bliver kørt" og det skal så være et ID

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("system/db.mdb")
Conn.Open DSN

sletSQL = "SELECT * FROM Banner where id = " & request.querystring("id")
set rs = conn.execute(sletSQL)

if not rs. eof then
response.redirect rs("URL")
end if
%>

På forhånd tak