Tomar Email de DB y enviar correo a ese usuario

[Fr@Nc3$c0]

Buenas:

Yo chequearía si tienes capturado bien la variable desde la base de datos.
Lo correcto sería '"&EMAIL&"' si a EMAIL antes le hubieras dado el valor del campo EMAIL de la base de datos.

Dim EMAIL

EMAIL = RS("EMAIL")

Habiendo conectando anteriormente a la BD:

...Conexion...
SQL = "SELECT * FROM users WHERE nombre = '"&ID&"' "
Set RS = Conn.Execute(SQL)

Un saludo.