Update on the fly

Prøver at lave Update on the fly - kan ikke få det til at funke...
Har i et forslag...?

Min SQL:

Sql="SELECT BrugerID_,L_ArbejdstidFra FROM tblUgeDag WHERE BrugerID_=2" '& Session("BrugerID")
RS.Open Sql, Conn, 3, 3
Do Until RS.EOF
If RS("L_ArbejdstidFra")="#23:00:00#" Then
    RS("L_ArbejdstidFra")="#00:00:00#"
ElseIf RS("L_ArbejdstidFra")="#00:00:00#" Then
    RS("L_ArbejdstidFra")="#23:00:00#"
End IF
RS.Update
RS.MoveNext
Loop
RS.Close