finalmente ho torvato la combinazione vincente
codice:
 
        ' Passo in una variabile le email e invio il messaggio
        If (dr.HasRows) Then
            Do While dr.Read()
                Dim bcc As New MailAddress(dr("email").ToString())
                mail1.Bcc.Add(bcc)
            Loop
            mailClient1.Send(mail1)
        End If