Как эффективно удалить данные из нескольких таблиц

---

У меня есть 5 таблиц, из которых я сейчас удаляю. Вот как они все настроены:

For Each dgvr As DataGridViewRow In DataGridView1.SelectedRows
 Using sqlcon As New SqlConnection(connectionstring + ComboBox1.Text + ".mdf;Integrated Security=True")
                    Try
                       sqlcon.Open()
                        Dim Sources As String = "Delete from " + "[Profile]" + " where Id = @ID"

                        Dim cmd As SqlClient.SqlCommand
                        cmd = New SqlClient.SqlCommand(Sources, sqlcon)
                        cmd.Parameters.AddWithValue("@ID", dgvr.Cells(0).Value.ToString)

                        cmd.ExecuteNonQuery()

                        sqlcon.Close()

                    Catch ex As Exception

                    End Try

                End Using
Next

Единственное отличие при удалении из других таблиц заключается в том, что ID-это individual_ID, но это ссылка на исходный ID. Однако, я по-прежнему использовать dgvr.Ячейки(0).Значение.Метод toString

Я попробовал удалить партию из примерно 8000 человек, и на удаление такой маленькой партии уходит около 20 минут.

есть предложения?

Что я уже пробовал:

Я пытался использовать оператор join, однако, когда я пытался запустить код, оператор никогда не срабатывал. Итак, я предположил, что либо утверждение было неверным, либо vb.net ему трудно понять код соединения.

---