Ciao, prova così:

codice:
if IsNull(DATA) then 
    SQL="UPDATE tbx set DATA=NULL WHERE ID = "&Id
ELSE
    SQL="UPDATE tbx set DATA=#"&DATA&"# WHERE ID = "&Id
end if
Conn.Execute(SQL)