اريد حل للحذف من دليل الحسابات

برمجت دليل حسابات اريد عندما لايكون للحساب ابناء يحذفه وهذا ينفذه ، واريده عندما يكون للحساب ابناء ان يحذفه ويحذف كل الحسابات المندرجه تحت هذا الحساب الرئيسي وهذا لايتم

وكتبت هذا الكود للحذف لكن ينفذ الجزء الاول ولاينفذ الجزء التانى

    Private Sub ToolStripDelete_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles ToolStripDelete.Click

        Try

            If Me.TreeView1.SelectedNode.GetNodeCount(True) = 0 Then 'اذا لم يكن للحساب ابناء

                Dim D As New accountsDataContext

                Dim a = (From c In D.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)

                D.accounts.DeleteOnSubmit(a)

                D.SubmitChanges()

                MsgBox("تم الحذف")

            ElseIf Me.TreeView1.SelectedNode.GetNodeCount(True) > 0 Then 'اذا كان للحساب ابناء

                Dim Ds As New accountsDataContext

                Dim b = From c In Ds.accounts Where c.account_parent = Me.Txtparentid.Text.ToList(0)

                Ds.accounts.InsertAllOnSubmit(

                Ds.SubmitChanges()

                Dim DDl As New accountsDataContext

                Dim bb = (From c In DDl.accounts Where c.account_id = Me.Txtparentid.Text).ToList(0)

                DDl.accounts.DeleteOnSubmit(bb)

                DDl.SubmitChanges()

                MsgBox("تم الحذف")

            End If

        Catch ex As Exception

            MsgBox(ex.Message)

        End Try

    End Sub

عند حذف الحساب 1 يتم حذفه من الشجره  ومن الداتابيس

اما عند تحديد الحساب 2 الذى له ابن لايحذفه وتظهر رساله  exception