How do I efficently delete from multiple tables

See more:

VB

I have 5 tables I am currently deleting from. Here is how they all are setup:

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

The only difference when deleting from the other tables is the ID is individual_ID, but it is a reference to the initial ID. However, I still use the dgvr.Cells(0).Value.ToString

I tried a batch of about 8,000 to delete and it takes about 20 minutes to delete such a small batch.

any suggestions?

What I have tried:

I have tried to use a join statement, however, when I tried to run the code the statement never fired. So, I assumed that either the statement was wrong or vb.net has a hard time understanding the join code.