problemino con update...

[Stanislao]

ho bisogno di cambiare il valore di un campo di testo a tutti i record del db..
piu precisamente il campo status a tutti i record

e provo così

    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("data.mdb")
    Set rs=Server.CreateObject("ADODB.RecordSet")

    sql="Select from Iscritti"

    rs.Open sql , Conn ,3 ,3
    if not rs.eof then
    
    rs("Status")= "Friend"
    
    end if
    rs.update        
             set rs=Nothing
    Conn.close
    Set Conn=nothing 

ma non funge...sapreste dirmi cosa sbaglio?

grazie infinite