Array de sesión adentro de For Next - ayuda

[razeus]

Hola,
El código es el siguiente, creo que hay un problem a de lógica en el mismo:
..........
cmd.Fill(dt)
'
n = dt.Rows.Count
Dim arrString(dt.Rows.Count - 1) AsString

mail.From = New MailAddress([email protected], "De prueba")

For iCnt AsInteger = 0 To 1

Dim toa AsNew MailAddress(dt.Rows(iCnt).Item("email"))
mail.To.Add(toa)
mail.Subject = "Este es un mensaje de correo"
mail.Body = "this is the body content of the email." & dt.Rows(iCnt).Item("Nombre")
mail.IsBodyHtml = 1 'si
'send the message
Dim smtp AsNew SmtpClient("mail.midominio.com")
smtp.Credentials = New NetworkCredential([email protected], "xxxx")
smtp.Send(mail)
Next
mt
Objetivo: Esto debería enviar correos a que email listado en una base de datos, y además cambiar el cuerpo del mensaje personalizandolo según el email de la base de datos con el nombre correspondiente.

Error: El for next, actúa como una suma en este caso, ya que si es por ejemplo:

i=0 to i=2 entonces,
i=0
(i=1) >> i=0,1 >>> Problema van 2 correos a: 0,1 (debería llegar el correo a i=1 y no también a i=0)
(i=2)>> i=0,1,2 >>> Problema van 3 correos a: 0,1,2 (debería llegar el correo solo a i=2 y a nadie mas)

El error es que el bucle hace que se repitan los emails un i número de veces, sumandose a los anteriores...

Esto me tiene desconcertado, gracias por cualquier ayuda.