update ja/net til access

Hjælp
Jeg har flere ja/nej felter i min access database
Jeg skal have update min ja/nej felt til ja hvor feltnavnet passer til den variabel. Feltet skal update der hver medlemsnummer er en anden variabel med navn medlemsnummer
Jeg kan ikke fange den syntax jeg har brug for
Her er hvad jeg har:
*******************************************************
dim lektion, medlemsnummer, klar
lektion=Trim(Replace(Request("lek"),"'",""))
medlemsnummer=Trim(Replace(Request("medlemsnummer"),"'",""))
klar=ja

strSQL = "UPDATE tabelnavn SET " & lektion & " = '" & lektion & "' WHERE medlemsnummer = '" & medlemsnummern & "'"
  Conn.Execute (strSQL)