UPDATE fejl

Hvordan kan jeg så UPDATE et recordset hvor id = 10, kan man ikke lave en WHERE i en UPDATE.
fx har jeg dette:

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

strQS = request.querystring("id")

strSQL = "UPDATE links WHERE id = " & strQS &" SET("

strSQL = strSQL & "Linknavn, "
strSQL = strSQL & "Adresse, "
strSQL = strSQL & "Beskrivelse, "
strSQL = strSQL & "Katagori, "
strSQL = strSQL & "Type) "

strSQL = strSQL & "values( "

strSQL = strSQL & "'" & Request.Form("linknavn") & "',"
strSQL = strSQL & "'" & Request.Form("adresse") & "',"
strSQL = strSQL & "'" & Request.Form("beskrivelse") & "',"
strSQL = strSQL & "'" & Request.Form("katagori") & "',"
strSQL = strSQL & "'" & Request.Form("type") & "')"

Conn.Execute(strSQL)

Conn.Close
Set Conn = Nothing
%>


(fra spm: http://www.eksperten.dk/spm/219582)