Iniziamo con questo:

if isnull(rs("nomecampo")) then

se hai un attimo di pazienza ora vedo il resto ...