Onestamente non riesco a capire la logica del tuo codice...

Esempio, tu hai scritto:

leggere in sequenza vari indirizzi e-mail
Ma dove sono questi indirizzi?
Tu dichiari solamente un DataAdapter:
codice:
Dim rstEmail As New SqlClient.SqlDataAdapter
ma poi? A cosa ti serve, dato che non è popolato da nessuna parte?

Perchè usi la proprietà AcceptChangesDuringFill ? A che scopo?
http://msdn.microsoft.com/it-it/libr...uringfill.aspx


ti consiglio di fare una ricerca sul forum con 'mail VB.NET'
troverai un sacco di discussioni.