Se quando esegui il codice sopra significa che quello che dici è stato visualizzato basta che aggiungi

oRs.Open strsql, Conn,1,3 (questo lo sostituisci al tuo)
oRs("visto")=true
ors.Update