Opdater en bestemt post

Hejsa
Jeg er igang med at lave te skoleskema, hvor man selv kan opdater de forskellige fag.

Min db ser sådan ud.

tabelnavn: 1klasse

id  Mandag  Tirsdag        Onsdag      Torsdag  Fredag
1    Dansk    Matematik      Dansk                 
2    Idræt    Matematik      Matematik  Dansk     
3    Idræt    Natur & teknik Billedkunst Kristendom Dansk
4                                        Matematik  Dansk
5                                                  Klassen
6
7
8


For at slå op i db bruger jeg flg:

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/Database/skole.mdb")

Set rs = Server.CreateObject("ADODB.Recordset")

SQLstmt = "SELECT * FROM lektion, 1klasse "

rs.Open SQLstmt, conn, 1, 3

<td width="17%" height="10" valign="top">
<form method="POST" action="gem_skema_1_klasse.asp?id=<%=Request("id")%>">
<input type="text" name="Ret" size="15" value="<%rs.Find "id=1"%><%=rs("Mandag")%>"> <br> &nbsp;<input type="submit" value="Ret" name="B1"> <input type="hidden" name="id" size="20" value="<%rs.Find "id=1"%><%=rs("id")%>"><input type="reset" value="Slet" name="B2">
</form></td>

Det virker OK, men så skal jeg have gemt eventuelle ændringer.

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.MapPath("/database/skole.mdb")

'Opdater start og sluttidspunkt
SQLstmt = "UPDATE DISTINCTROW 1klasse SET Ret = '" &  request.form("ret") & "'  "' WHERE id = " & Request.form("id")

RESPONSE.WRITE SQLSTMT
Conn.Execute (SQLstmt)

Men det virker ikke.
Så hvordan gør jeg dette ??