Validar un Delete usando LinQ to SQL

[poitofritoxd]

Buenas noches:

Estoy creando un mantenimiento de una tabla de mi base de datos. Tengo el siguiente código para borrar:

Código .Net:

Private Sub btnEliminar_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnEliminar.Click
        Dim reg = From b In pesca.TB_BARCO _
                  Where b.COD_BAR = TextBox1.Text
        Try
            'eliminar
            pesca.TB_BARCO.DeleteOnSubmit(reg.First)
            'actualizar
            pesca.SubmitChanges()
            MessageBox.Show("Barco eliminado")
 
            Listar() 'listar
        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub
 
 
Estoy tratando de eliminar un registro de la tabla barco, pero quiero validar cuando se trate de eliminar un registro el cual tiene referenciados otros registros de otra tabla. Qué líneas de código tendría que agregar?.
 
PD: No quiero poner en la base de datos ON DELETE CASCADE simplemente quiero mostrar un mensaje al usuario indicandole que ese registro tiene a otros referenciados. Gracias por sus respuestas.