Using stCon As New SqlConnection(ConfigurationManager.ConnectionStrings("SeedTrackerConnectionString").ConnectionString)

            stCon.Open()

            Dim sInsertCommand As New SqlCommand("INSERT INTO [SeedTracker].[dbo].[Revisions] ([STID],[LID],[UID],[isCross],[isMutant],[Genotype],[TVal],[SEQ],[NumLabels],[Label],[ExpName],[Plant],[Type],[Plasmid],[Cultivar],[Container],[Source],[Notes],[CrossExpName],[CrossExpDesc],[Mother],[Father],[LabBook],[Pages],[ELBURL],[Mutagen],[isTrash],[RevUID],[TimeStamp]" & _
                "SELECT [STID],[LID],[UID],[isCross],[isMutant],[Genotype],[TVal],[SEQ],[NumLabels],[Label],[ExpName],[Plant],[Type],[Plasmid],[Cultivar],[Container],[Source],[Notes],[CrossExpName],[CrossExpDesc],[Mother],[Father],[LabBook],[Pages],[ELBURL],[Mutagen],[isTrash],@sUID,[TimeStamp]" & _
                "FROM [SeedTracker].[dbo].[SeedTracker] WHERE STID = @sSTID", stCon)

            sInsertCommand.Parameters.AddWithValue("@sUID", sUID)
            sInsertCommand.Parameters.AddWithValue("@sSTID", sSTID)
            sInsertCommand.ExecuteNonQuery()

            stCon.Close()

        End Using