conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=C:\database.mdb"
sql="select * from nometabella where nomecampo=criterio"
rs.Open sql, conn, 3, 3

rs!nomecampo = "Campo aggiornato"
rs.Update
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing