异步调用已在进行中。它必须在vb.net中完成或取消

我试图一次向多个人发送邮件

我的代码是这样的

 Dim SmtpServer As New SmtpClient()
            SmtpServer.Credentials = New Net.NetworkCredential("jasibs002@gmail.com", "solutions")
            SmtpServer.Port = 25
            SmtpServer.Host = "smtp.gmail.com"
            SmtpServer.EnableSsl = True
            Dim omail As New MailMessage()

        omail.From = New MailAddress("jasibs002@gmail.com", "JaseemBinBacker", System.Text.Encoding.UTF8)

        omail.Subject = "Test Mail"
        Dim str As String
        str = "Hai How Are You I am Sendig This Mail for Testing"
        str = str + vbNewLine & "Checking"
        str = str + vbNewLine & "Sucess"
        omail.Body = str
        Dim email As String
        Dim cmdemail As New SqlCommand("SELECT Emailid FROM  dbo.Email_tbl", con.connect)
        dr = cmdemail.ExecuteReader
        While dr.Read
            email = dr("Emailid")
            omail.To.Add(email)
            SmtpServer.SendAsync(omail, Nothing)
        End While
        dr.Close()
        con.disconnect()

    Catch ex As Exception
        MsgBox(ex.ToString)
    End Try

执行此操作时，我得到以下错误：；

异步调用已在进行中。必须先完成或取消该操作，然后才能调用此方法。

我的电子邮件

表

有10多个电子邮件ID

---

我想同时发送此电子邮件，我如何才能做到这一点？

在发送第二封邮件时，错误发生在哪里？错误发生在这一行：SmtpServer.SendAsync（omail，Nothing）为什么使用发送同步？为什么不创建一个可以处理发送许多电子邮件的应用程序呢