SALVAR E APAGAR INFORMA?ÕES DA TABELA

DELETE FROM SuaTabela WHERE ID_PEDIDO = Código_da_variavel_comentada_acima

SELECT * FROM SuaTabela WHERE ID_PEDIDO = Código_da_variavel_comentada_acima
[ô]Faça a estrutura de retorno no seu gosto, porém terá que realizar uma gravação na tabela de compras definitiva

[ô]Suponho que retornou um DataTable
For Each rw As DataRow in dtResultado.Rows
    Dim qSQL As String = [Ô]INSERT INTO SuaTabelaDefinitiva VALUES ([Ô] & rw([Ô]Campo1) & [Ô],[Ô] & rw([Ô]Campo2[Ô]) & [Ô])[Ô]
    
    [ô]Aqui você chama a função para gravação da query acima
Next

CREATE PROCEDURE FINALIZAVENDA (
	@TIPO CHAR(1), -- 1=Cancelar / 2=Confirmar
	@COD_PEDIDO INTEGER, 
	@RESULTADO bit  OUTPUT -- 0=Erro / 1=TudoCerto
	)
	
AS BEGIN TRY

BEGIN TRANSACTION


--Campos das Tabelas (No caso as tabelas devem ser identicas eu creio)
DECLARE @CAMPO1 VARCHAR(100)
DECLARE @CAMPO2 INTEGER

SET @RESULTADO = 1

	IF @TIPO = 1
	BEGIN

		--Somente Exclui os itens
		BEGIN TRY
			
			DELETE FROM SuaTabela WHERE ID_PEDIDO = @COD_PEDIDO
			
		END TRY
		BEGIN CATCH
			
			SET @RESULTADO = 0
			
		END CATCH
		
	END
	ELSE
	BEGIN

		BEGIN TRY
		
			--Cursor para percorrer as linhas da tabela
			DECLARE C_TABELA1 CURSOR FOR SELECT Campo1, Campo2 FROM SuaTabela WHERE ID_PEDIDO = @COD_PEDIDO
			
			OPEN C_TABELA1;

				FETCH NEXT FROM C_TABELA1
				INTO @CAMPO1, @CAMPO2
				
				WHILE @@FETCH_STATUS = 0
				BEGIN  
				
					--Lembre-se que não estou direcionando os campos, pois creio que as tabelas estão identicas
					--Caso os campos esteja fora de ordem você pode passar os campos no INSERT também
					--INSERT INTO SuaTabelaDefinitiva (CAMPO1,CAMPO2) VALUES (@CAMPO1,@CAMPO2)
					
					INSERT INTO SuaTabelaDefinitiva VALUES (@CAMPO1,@CAMPO2)

					FETCH NEXT FROM C_TABELA1
					INTO @CAMPO1, @CAMPO2
				END

			CLOSE C_TABELA1
			DEALLOCATE C_TABELA1
			
		END TRY
		BEGIN CATCH
		
			DEALLOCATE C_TABELA1
			SET @RESULTADO = 0
			
		END CATCH
		
		--Exclui os itens após gravação na tabela
		BEGIN TRY
		
			--Somente eclui os itens caso não tenha ocorrido erro no código acima
			IF @RESULTADO = 1
				DELETE FROM SuaTabela WHERE ID_PEDIDO = @COD_PEDIDO
			
		END TRY
		BEGIN CATCH
			
			SET @RESULTADO = 0
			
		END CATCH
	END
	
	IF @RESULTADO = 0
    BEGIN
       ROLLBACK
    END
	ELSE
	BGIN
		COMMIT
	END

END TRY
BEGIN CATCH
     ROLLBACK
     SET @RESULTADO = 0
END CATCH

Public Sub AbrirConexao()
	Try
		If _conn.State = ConnectionState.Open Then
			_conn.Close()
		End If
		_conn.Open()

	Catch ex As Exception
		[ô]Coloque sua mensagem de erro aqui

	End Try
End Sub

Public Function ExecutarComando(ByVal querySQL As String, ByVal cmd As SqlCommand) As Integer
	Dim _linhasAfetadas As Integer
	
	Try
	
		AbrirConexao()
		
		cmd.Connection = _conn
		cmd.CommandType = CommandType.StoredProcedure
		cmd.CommandText = querySQL

		_linhasAfetadas = cmd.ExecuteNonQuery
		_conn.Close()

	Catch ex As Exception
		If _conn.State = ConnectionState.Open Then _conn.Close()
		_linhasAfetadas = -1
		
	End Try
End Function

Dim _cmd As New SqlCommand

_cmd.Parameters.Add([Ô]@TIPO[Ô], SqlDbType.Char).Value = 1 [ô]Para Cancelar
_cmd.Parameters.Add([Ô]@COD_PEDIDO[Ô], SqlDbType.Int).Value = 123 [ô]Código do Pedido
_cmd.Parameters.Add([Ô]@RESULTADO[Ô], SqlDbType.Bit).Direction = ParameterDirection.Output

Dim result As Integer = ExecutarComando([Ô]NOME_SUA_PROCEDURE_AQUI[Ô], _cmd)

If result = -1 then
	MessageBox.Show([Ô]Erro[Ô])
Else
	MessageBox.Show([Ô]Ok[Ô])
	[ô]Lembre-se pode ser que retorne 0(zero) e se retornar zero também deu erro para o seu caso
End If