codice:
if IsNull(DATA) then 

SQL="UPDATE tbx set DATA="&DATA&" WHERE ID = "&Id

ELSE

SQL="UPDATE tbx set DATA=#"&DATA&"# WHERE ID = "&Id
Conn.Execute(SQL)
se metto una data è OK, se lascio il campo vuoto va in errore la query.