Ciao !
La prima cosa che puoi fare, anche se non è la causa del tuo errore,
è aggiungere spazi prima e dopo di &
codice:
SQL = "UPDATE dati set email='" & email & "' WHERE id=" & cod
poi dovresti eliminare le parentesi in questa riga:
codice:
Conn.Execute(SQL)
Trattandosi di una function, puoi usare le parentesi solo se fai un'assegnazione col valore che questa ti restituisce (nello specifico, un Recordset). Es:
codice:
Set MioRecordset = Conn.Execute(SQL)
Direi che non c'è altro, posso consigliarti di controllare che il campo email del form contenga un valore (<> "") prima di fare la query e l'update.

Ciao, ciao
Simo