If MYDR3.HasRows = True Then
                Do While MYDR3.Read

                    If Regex.IsMatch(MYDR3.Item("email_cliente"), "\w+([-+.']\w+)*@\w+([-.]\w+)*\.\w+([-.]\w+)*") Then
                        Email = MYDR3.Item("email_cliente")
                        myEmail.Bcc.Add(Email)


                    End If
                Loop
            End If