Private Sub DeleteItem_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles DeleteItem.Click

        Dim cbcust As SqlClient.SqlCommandBuilder
        Dim result As DialogResult

        Try
            
            result = MessageBox.Show("Вы уверены? Будут удалены все данные касающиеся данной компании, включая контрагентов.", "Удаление компании", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)

            If result = DialogResult.OK Then

                'Удаляем строку на которой находится курсор в DatGrid.
                               Me.BindingContext(Me.dgForm1.DataSource).RemoveAt(Me.BindingContext(Me.dgForm1.DataSource).Position)

                'Заносим измененные данные в базу
                If Not dsCust.GetChanges(DataRowState.Deleted) Is Nothing Then
                    cbcust = New SqlClient.SqlCommandBuilder(daCust)
                    daCust.DeleteCommand = cbcust.GetDeleteCommand
                    daCust.Update(dsCust, "CompanyTbl")
                    dsCust.Tables("CompanyTbl").AcceptChanges()
                End If
            End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try
    End Sub

Private Sub delBttn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles delBttn.Click

        Dim cbcust As SqlClient.SqlCommandBuilder
        Dim result As DialogResult

        Try

            result = MessageBox.Show("Вы уверены? Будут удалены все данные касающиеся данной компании, включая контрагентов.", "Удаление компании", MessageBoxButtons.OKCancel, MessageBoxIcon.Warning, MessageBoxDefaultButton.Button1, MessageBoxOptions.ServiceNotification)

            If result = DialogResult.OK Then

                Console.WriteLine("Удаление произошло.")

                           End If

        Catch ex As Exception
            MessageBox.Show(ex.Message)
        End Try


    End Sub