Improve performance pasting from Windows Clipboard

See more:

VB

I have the following code that pastes into a tableadapter and I am looking for a way to improve the performance. Currently it takes a min to paste a 100 records.

Sub ParseSpecList()
        Dim myTable As New cbot_dbDataSetTableAdapters.SpecsTableAdapter
        Dim strSpec As String
        Dim myText As String()
        myText = Clipboard.GetText.Split(Environment.NewLine)

        For Each item As String In myText
            strSpec = item.Trim
            If strSpec <> "" Then
                Try
                    myTable.InsertQuerySpec(strSpec, False)
                Catch ex As System.Data.SqlServerCe.SqlCeException
                    'skip add
                Catch ex As Exception
                    ' Show the exception's message.
                    MessageBox.Show(ex.Message)
                    Debug.Print(ex.Message)
                    ' Show the stack trace, which is a list of methods
                    ' that are currently executing.
                    MessageBox.Show("Stack Trace: " & vbCrLf & ex.StackTrace)
                End Try
            End If
        Next item

    End Sub