Skift fra False til True

Jeg skal have denne kode til at skifte et feldt (godkendt) i rs fra False til True men jeg kan ikke lige få den til det :)

<!-- #include file="DB.asp" -->

<%


'Creating the Recordset Object
Set rs = Server.CreateObject("ADODB.RecordSet")
Set rs2 = Server.CreateObject("ADODB.RecordSet")
rs.Open "ansog", strDSN, adOpenDynamic, adLockReadOnly, adCmdTable
rs2.Open "TblPasswords", strDSN, adOpenDynamic, adLockOptimistic, adCmdTable
rs.find "ID=" & request.querystring("ID")
medlem = rs("medlem")
fornavn = rs("fornavn")
Efternavn = rs("efternavn")
bruger = rs("brugernavn")
kode = rs("kode")

rs2.addnew
rs2("medlem") = medlem
rs2("RealName") = fornavn & " " & Efternavn
rs2("Username") = bruger
rs2("Password") = kode
rs2.update
rs.close
rs2.close
set rs = Nothing
set rs2 = Nothing

'response.redirect("default.asp")
%>