Set DB_Elabora = New ADODB.Connection

With DB_Elabora
.ConnectionString = "Driver={SQL Native Client};" & ConnessioneDati
.Open
.CursorLocation = adUseClient
End With

Set RsUpd = New ADODB.Recordset

RsUpd.Open "INSERT INTO Variazioni (Codice_Menzaghi,Riga,Qta,Data_Consegna,Stato,Data _Inserimento,ordine) VALUES " + _
" (" & CInt(Text3) & "," & CInt(Text7) & "," & CLng(Text6) & " ,'" & CDate(Text2) & "' ,1,'" & Date & "','" & Text20 & "');", DB_Elabora, adOpenDynamic, adLockPessimistic



Il trigger SQL

DECLARE @snk_Codice INT, @snk_ordine CHAR(13), @snk_riga INT

SELECT @snk_Codice = Codice_Menzaghi,@snk_ordine = ORDINE,@snk_riga = riga
FROM INSERTED

SELECT Codice_Menzaghi, Ordine,Riga FROM dbo.sink_variazioni
Where Codice_Menzaghi = @snk_codice and Ordine = @snk_ordine
and Riga = @snk_riga
IF @@ROWCOUNT >0
DELETE FROM dbo.sink_variazioni
Where Codice_Menzaghi = @snk_codice and Ordine = @snk_ordine
and Riga = @snk_riga

BEGIN
INSERT INTO dbo.sink_variazioni (Codice_Menzaghi,Riga,Qta,Data_Consegna,
Stato,Data_Inserimento,Ordine,Sink)

SELECT
Codice_Menzaghi,Riga,Qta,Data_Consegna,Stato,
Data_Inserimento,Ordine,getdate() as 'Var_Tempo'
FROM inserted
SET NOCOUNT ON
END