How to stop duplicates being written from VB6 code to SQL Table

I have a project where I have to write to an SQL database some values (32 values) .Here's the routine which does the job:

Private Sub Write_To_SQL()
    Dim Var
    Dim sDate As String
    Dim Connection, RS
    Dim rsField, iFieldCount
    Dim SQLStmt As String
    Dim sstring As String
    sDate = Format(DateTime.Now, vbGeneralDate)
   
    Set Connection = CreateObject("ADODB.Connection")
   
    Set RS = New ADODB.Recordset
   
    Connection.Open "driver=SQL Server;server=(local);uid=;pwd=;database=DATA_LOG;"
 

    SQLStmt = "INSERT INTO    Recipes_West_Table   " & _
    "Values( '" & Label4.Caption & "' ," & Form1.txtVal1.Text & "," & Label3.Caption & ")"
 
    Set RS = Connection.Execute(SQLStmt)
    Remove_Group
    Var = 1
End Sub

No problems it works if I trigger the subroutine from a button.Like
Private Sub Command1_Click()
Write_To_SQL
End Sub
But unfortunately I have to trigger the Write_To_SQL subroutine from a textbox values.Namely when
IF Form1.Text1.Text = "1" then
Write to SQL
End If
The problem is that the Text.Text stays 1 for various lenghts of time.So To avoid triggering twice the Wrtite_To_SQL routine I have to put some conditions like if the Write_To_SQL is executed and Form1.Text1.Text hasn't done a TRANSITION from Text1.Text = " 1"  to Text1.Text = "0" and then AGAIN to Text1.Text = "1" (This is the point I have to write to SQL again) ,then don't trigger the routine.I've tried all sorts of tricks trying to build some "flip/flop" to detect transitions of Text1.Text from 1 to 0 to 1 --> write.I just don't know what are the best practices to do this kind of thing.Please help if someone got an ideea.ThanxStart Free Trial