Problema al enviar un mail en un sistema de boletines

[Koden]

Tengo una base de datos en MySQL en la que guardo e-mails y paginas en html. La idea es intentar un sistema de boletines de tal modo que se envie siempre el ultimo boletin a todos los e-mails de la base de datos, pero al intentarlo, me da este error:

Persits.MailSender.4 error '800a0006'

501 Syntax error in parameters or arguments

/conexion.asp, line 50

El código de mi página es este:

<%
dim conn
dim conn_string
dim sql1, sql2, sql3

Set conn = Server.CreateObject("ADODB.Connection")
conn_string = "Driver={MySQL ODBC 3.51 Driver};Server=ipserver;Port=3306;Database=db;Uid= user;Pwd=pass;Option=3;"
conn.Open(conn_string)

sql1 = "SELECT MAX(IdMensaje) FROM MailingAUsuarios"
Set rs1 = Server.CreateObject("ADODB.Recordset")
Set rs1 = conn.Execute(sql1)
rs1.MoveFirst()

while not rs1.EOF
sql2 = "SELECT * FROM MailingAUsuarios WHERE IdMensaje="&rs1("MAX(IdMensaje)")
Set rs2 = Server.CreateObject("ADODB.Recordset")
Set rs2 = conn.Execute(sql2)
rs2.MoveFirst()

while not rs2.EOF
sql3 = "SELECT * FROM mailing2"
Set rs3 = Server.CreateObject("ADODB.Recordset")
Set rs3 = conn.Execute(sql3)
rs3.MoveFirst()

while not rs3.EOF
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.Host = "mail.dominio.com"
Mail.FromName = "dominio.com"
Mail.Subject = rs2("MensajeTEXT")
Mail.IsHTML = true
Mail.Body = rs2("MensajeHTML")
Mail.AddAddress rs3("email")
Mail.Send
rs3.MoveNext()
wend

rs2.MoveNext()
wend

rs1.MoveNext()
wend

conn.close
set conn = nothing
%>

La línea 50 es en concreto esta:

Mail.AddAddress rs3("email")

¿Alguien tiene alguna idea de qué es lo que me está fallando o de qué es lo que puede fallar?

Muchísimas gracias por adelantado.