If tssUpdate = True Then

            Dim resultsDataTable1 As New DataTable()
            Dim worksheet1 As Worksheet = SpreadsheetControl1.Document.Worksheets.ActiveWorksheet

            'Dim range1 As Range = worksheet1.Selection

            Dim range1 As Range = worksheet1.Range("TSS!A17:N56")

            Dim index1 As Integer
            Dim dtTSSExportDataTable As DataTable = worksheet1.CreateDataTable(range1, False)

            worksheet1.Columns("I").CopyFrom(worksheet1.Columns("V"), PasteSpecial.Values)   ' copies the concentration result to the "Result" TableColumn to UPDATE

            Call FindRowsThatHaveErrors()

            Dim cnSQL1 As SqlConnection = dbLIMS.GetLIMSConnection
            Dim adapter1 As New SqlDataAdapter("SELECT SampleNo, PAprojId, PAprojName, STMTNAME, DateAndTime, TestId1a, TestType1a, Facility1a, " _
                                             & "Results, AUnits1, SampleDate1a, Complete_Date, Comments1a, Dex_Row_Id " _
                                             & "From LIMS.dbo.Analytical_Sample_Log_ResultsInfo", cnSQL1)

            Dim builder1 As New SqlCommandBuilder(adapter1)
            adapter1.UpdateCommand = builder1.GetUpdateCommand()
            Using New SqlCommandBuilder(adapter1)
                adapter1.Fill(resultsDataTable1)

                resultsDataTable1.PrimaryKey = New DataColumn() {resultsDataTable1.Columns("Dex_Row_Id")}
                dtTSSExportDataTable = resultsDataTable1.Clone()

                Dim exporter1 As DataTableExporter = worksheet1.CreateDataTableExporter(range1, dtTSSExportDataTable, False)
                AddHandler exporter1.CellValueConversionError, AddressOf exporter_CellValueConversionError

                exporter1.Options.ConvertEmptyCells = True
                exporter1.Options.DefaultCellValueToColumnTypeConverter.EmptyCellValue = 0
                exporter1.Options.SkipEmptyRows = True
                exporter1.Export()

                For index1 = 0 To resultsDataTable1.Rows.Count - 1
                    resultsDataTable1.Rows(index1).SetModified()
                Next index1

                resultsDataTable1.Merge(dtTSSExportDataTable)

                Dim updateStatement1 As String = "UPDATE LIMS.dbo.Analytical_Sample_Log_ResultsInfo SET [SampleNo] = @SampleNo, [Results] = @Results " _
                                               & "WHERE [Dex_Row_Id] = @Dex_Row_Id And Dex_Row_Id > 0"
                Dim updateCommand1 As New SqlCommand(updateStatement1, cnSQL1)

                updateCommand1.Parameters.Add("@SampleNo", SqlDbType.Int, 0, "SampleNo")
                updateCommand1.Parameters.Add("@Results", SqlDbType.NChar, 10, "Results")
                updateCommand1.Parameters.Add("@Dex_Row_Id", SqlDbType.Int, 0, "Dex_Row_Id")
                adapter1.UpdateCommand = updateCommand1
                adapter1.Update(resultsDataTable1)

            End Using

End If 'tssUpdate = True