我的代码出了什么问题

我的代码出了什么问题？？我正在按钮点击事件中启动线程。我没有得到任何错误，但它不会激发发送电子邮件的子

Dim thread As New Thread(New ThreadStart(AddressOf sendEmail))
        thread.Start()
        thread.IsBackground = True
        thread.Priority = System.Threading.ThreadPriority.Normal
        Response.Redirect(getRedirectionPath)
 Public Sub sendEmail()
        Response.Redirect("~/Index")
    End Sub

为什么它不起作用？

更新：我收到错误"THREAD WAS BEING ABORTED"

更新：根据请求，我已经上传了整个代码片段

 Protected Sub btnLocalSubmit_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnLocalSubmit.Click
        'Dim _User As MembershipUser = Membership.GetUser(_userName)
        'Dim _UserGUID As Object = _User.ProviderUserKey

        Dim _con As New SqlConnection(ConfigurationManager.ConnectionStrings("CitizenJDBConnectionString").ConnectionString)
        Dim _sqlComm As New SqlCommand("INSERT INTO LocalReport VALUES (@UserID,@ReportTitle,@Report,@State,@City,@Locality,'0','0',@Tags,@TimeStamp)", _con)
        Try
            _sqlComm.Parameters.Add("UserID", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("UserID").Value = _userName
            _sqlComm.Parameters.Add("ReportTitle", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("ReportTitle").Value = txtLocalReportTitle.Text
            _sqlComm.Parameters.Add("Report", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("Report").Value = ckLocalReport.Text
            _sqlComm.Parameters.Add("State", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("State").Value = ddlState.SelectedValue
            _sqlComm.Parameters.Add("City", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("City").Value = ddlCity.SelectedItem.Value
            _sqlComm.Parameters.Add("Locality", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("Locality").Value = txtLocation.Text
            _sqlComm.Parameters.Add("Tags", Data.SqlDbType.VarChar)
            _sqlComm.Parameters("Tags").Value = txtLocalTags.Text
            _sqlComm.Parameters.Add("TimeStamp", Data.SqlDbType.DateTime)
            _sqlComm.Parameters("TimeStamp").Value = DateTime.Now

            _con.Open()
            _sqlComm.ExecuteNonQuery()
            _con.Close()
            Dim logic = New connections
            logic.emailsToSend(User.Identity.Name, getURL, reportedBy)
            'sendEmail()
            Dim thread As New Thread(New ThreadStart(AddressOf sendEmail))
            thread.Start()
            Response.Redirect(getRedirectionPath)
        Catch ex As Exception
            MsgBox(ex.Message)
            Response.Write(ex.Message)
        Finally
            _con.Close()
            _con.Dispose()
            _sqlComm.Dispose()
        End Try
    End Sub
    Public Sub sendEmail()
        Dim _con As New SqlConnection(ConfigurationManager.ConnectionStrings("CitizenJDBConnectionString").ConnectionString)
        Dim _sqlDataAdapter As New SqlDataAdapter("SELECT * FROM EmailSender", _con)
        Dim _table As New System.Data.DataTable

        Try
            _con.Open()
            _sqlDataAdapter.Fill(_table)
            _con.Close()
            For i As Integer = 0 To _table.Rows.Count

                Dim AppPath As String = Request.PhysicalApplicationPath
                Dim sr As New StreamReader(AppPath & "EmailTemplates/NewReport.txt")
                Dim message As New MailMessage()
                message.IsBodyHtml = True
                message.From = New MailAddress("admin@asdf.com")
                message.To.Add(New MailAddress(_table.Rows(i).Item(1)))
                'message.CC.Add(New MailAddress("monodeep12@gmail.com"))
                message.Subject = "New User registration !"
                message.Body = sr.ReadToEnd()
                sr.Close()
                message.Body = message.Body.Replace("<%ReporterName%>", _table.Rows(i).Item(3))
                message.Body = message.Body.Replace("<%ReportURL%>", _table.Rows(i).Item(2))
                Dim client As New SmtpClient()
                client.Host = "smtp.tricedeals.com"
                'smtp.gmail.com
                client.Port = 25
                client.UseDefaultCredentials = True
                client.Credentials = New System.Net.NetworkCredential("admin@asdf.com", "111111")
                'smtp.EnableSsl = True
                client.Send(message)
                i += 1
            Next

        Catch ex As Exception
            Response.Write(ex.Message)
        End Try
    End Sub