VB and Send to Multiple Recips

[Guest_imported]

I am trying to send to email to multiple recipients at once using vb, but this code will only send to the last email in the database, can some please fix?

Do Until MailList.EOF
ToList = MailList("email&quot & ";"
Temp = ToList
MailList.MoveNext
Loop
MyMail.To = Temp
MyMail.Send

 

[Guest_imported]

temp = temp + tolist

try the above line in your code and see