1) Al posto dell'AND ci va la virgolacodice:sql = ""Update Contratto set Publi1_data='" & mData & "', Publi1_nome='" & mNome & "' where ID=" & Id
2) Il SET serve solo una volta
3) Ipotizzando che il campo data sia TESTO (se usi Access)
4) Ipotizzando che il campo ID sia NUMERICO/CONTATORE
Roby