Script probleme

[JEGO]

Folgendes Problem habe ich.
Ich habe ein INSERT INTO Script was auch funktioniert.
Ich möchte dieses aber änder in ein UPDATE
kann mir wer helfen?
hier das INSERT INTO:
<%

auTextfeld=request.form("Textfeld")
    set conn = Server.CreateObject("ADODB.Connection")
   conn.Open "DSN=cms.mdb"

set rs = Server.CreateObject("ADODB.Recordset")
   rs.CursorLocation = 3  ' adUseClient
   dim sql
   sql = sql & "INSERT INTO code (Textfeld)"
   sql = sql & " VALUES ("
   sql = sql & "'" & auTextfeld & "'"&")"
   rs.Open sql, conn
    response.redirect("login.asp")
 %>