Código:
strsql = "SELECT email FROM EmailNewsletter2 WHERE email =" & Emails
str_sqlavi = "INSERT INTO EmailNewsletter2 (email, activo) VALUES ('"& Emails &", 1)"
al parecer estas dos lineas les falta algo
en la primera el email me imagino que es texto y tu lo estas comparando como si fuese un numero para solucionar esto solo agrega comillas simples, es decir>
Código:
WHERE email ='" & Emails & "'"
y para la segunda linea le falta una comilla simple
Código:
str_sqlavi = "INSERT INTO EmailNewsletter2 (email, activo) VALUES ('"& Emails &"', 1)"
*
*
*
ojala y sea eso tu error
saludos y ojala y me califiques suerte!!!