Hvordan kan man ændre sin Database

Conn.Execute(\"Update Table set felt = \'værdi\' where id = ID\")

1. opret en connection i en variabel
2. Eksekver en SQL sætning mod databasen
3. Luk din Connection.

Jeg har en side med en form og i formfelterne har jeg en forskellige felter fra en post i en database, hvis jeg så gerne vil ændre felterne således at når jeg trykker submit ændres database posten samtidig

<%
fornavn = cstr(request(\"fornavn\"))
efternavn = cstr(request(\"efternavn\"))
adresse = cstr(request(\"adresse\"))
post = cstr(request(\"post\"))
by = cstr(request(\"by\"))
tlf = cstr(request(\"tlf\"))
mobil = cstr(request(\"mobil\"))
telefax = cstr(request(\"telefax\"))
land = cstr(request(\"land\"))
email = cstr(request(\"email\"))
id = cstr(request(\"id\"))

response.expires = 0
if session(\"access\") <> true then response.redirect \"login.asp\"
id = request(\"id\")


set dsn = Server.CreateObject(\"ADODB.Connection\")
set db = Server.CreateObject(\"ADODB.RecordSet\")
dsn.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & Server.MapPath(\"/fpdb/adresse.mdb\")

db.open \"SELECT * FROM Adresse WHERE id=\" & id, dsn
db.add
    if fornavn = \"\" then
        \'do nothing
        else
        db(\"fornavn\") = fornavn
        end if
       
    if efternavn = \"\" then
        \'do nothing
        else
        db(\"efternavn\") = efternavn
    end if
   
    if adresse = \"\" then
        \'do nothing
        else
        db(\"adresse\") = adresse
    end if
   
    if post = \"\" then
        \'do nothing
        else
        db(\"post\") = post
    end if
       
    if by = \"\" then
        \'do notning
        else
        db(\"by\") = by
    end if
   
    if tlf = \"\" then
        \'do notning
        else
        db(\"tlf\") = tlf
    end if
   
    if mobil = \"\" then
        \'do nothing
        else
        db(\"mobil\") = mobil
    end if
   
    if telefax = \"\" then
        \'do nothing
        else
        db(\"telefax\") = telefax
    end if
   
    if land = \"\" then
        \'do nothing
        else
        db(\"land\") = land
        end if
       
    if email = \"\" then
        \'do notning
        else
        db(\"email\") = email
    end if

db.update
db.close

set db = nothing
set dsn = nothing
session(\"ok\") = true

%>