主题：老大,帮我看看我的发送邮件的代码有什么问题?

DataTables("邮件系统").Save
Dim cmd As New SQLCommand
Dim dt As DataTable
cmd.ConnectionName = "Server"
cmd.CommandText = "SELECT * From {部门人员} Where [人员名称] = '" & _UserName & "'"
dt = cmd.ExecuteReader
If dt.DataRows.Count > 0 Then
    Dim m As New MailSender
    m.Host = dt.DataRows(0)("SMTP设置_服务器")
    m.Account = dt.DataRows(0)("邮件帐号")
    m.Password = dt.DataRows(0)("邮件密码")
    m.From = dt.DataRows(0)("Email")
    m.To = Tables("邮件系统").Current("收件人")
    m.Title = Tables("邮件系统").Current("主题")
    m.Content = Tables("邮件系统").Current("内容")
    Dim Multi1 As String = Tables("邮件系统").Current("附件")
    Dim Values1() As String
     m.SendAsync()
End If
MessageBox.Show("邮件发送成功")

  这个发送没有问题,可以成功.