主题：我做了一个群发邮件的按钮，但单击按钮，代码出错，请各位高手帮我看一下。

For Each dr As DataRow In DataTables("邮件通知").DataRows
    Dim m As New MailSender
    m.Host = dr("SMTP地址")
    m.Account = dr("帐号")
    m.Password = dr("密码")
    m.AddAttachments(dr("收件人"))
    m.Title = dr("主题")
    m.Content = dr("正文")
    m.SendAsync()
Next

但是点击发送按钮，他却出现如下图所示的错误，请问，代码错在哪里？