'Вывод данные
        adapter.Fill(dset, "tBudget")
        Me.dGridViewMain.DataSource = dset.Tables("tBudget")

        'Тут можно сделать какие-нибудь изменения

        dSetChanges = dset.GetChanges()
        dTable = Me.dGridViewMain.DataSource

        If dSetChanges Is Nothing Then
            MsgBox("Изменений не было", vbInformation)
        Else

            cmdb = New SqlCommandBuilder(adapter)


            adapter.DeleteCommand = cmdb.GetDeleteCommand
            adapter.InsertCommand = cmdb.GetInsertCommand
            adapter.UpdateCommand = cmdb.GetUpdateCommand

            Tran = cnn.BeginTransaction()

            adapter.DeleteCommand.Transaction = Tran
            adapter.InsertCommand.Transaction = Tran
            adapter.UpdateCommand.Transaction = Tran

            adapter.ContinueUpdateOnError = True
            adapter.Update(dset, "tBudget")

            If dset.HasErrors Then
                Tran.Rollback()
                MsgBox("Данные не сохранены" & vbCrLf & "Найдены ошибки", vbCritical)
            Else
                Tran.Commit()
                MsgBox("Успешно", vbInformation)
            End If