Remove Line Break

[experience]

Hi, can anyone tell me how to remove the extra line break when using this code:

        Dim str As String = SerialTextBox.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)
        For Each s As String In str
            Dim query As String = "INSERT INTO SerialNumbers (Serial) VALUES ('" & s & "')"
            Dim adapter As New OleDbDataAdapter(query, con1)
            Dim dt As New DataTable("SerialNumbers")
            adapter.Fill(dt)
            adapter.Update(dt)
            con1.Close()
        Next

If i put the following in a textbox:

1
2
3

it gets input into the database as

1

2

3

instead of

1
2
3

[dunfiddlin]

For Each s As String In str

This gives you every character in the string as a separate value. There is no extra carriage return, it's just that you are creating a separate record for each character. For 11,12,13 therefore you would get ..

1
1

1
2

1
3

[experience]

oh so it does, how would i select each line instead of each character?

[dunfiddlin]

Dim lines = str.Split({vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
For Each s In lines

[experience]

That seems to join the 2 lines instead of splitting them

        Dim str As String = SerialTextBox.Text.Replace(" ", vbCrLf).Replace(vbTab, vbCrLf)
        Dim lines = str.Split({vbCrLf}, StringSplitOptions.RemoveEmptyEntries)
        For Each s In lines
            Dim query As String = "INSERT INTO SerialNumbers (Serial) VALUES ('" & s & "')"
            Dim adapter As New OleDbDataAdapter(query, con1)
            Dim dt As New DataTable("SerialNumbers")
            adapter.Fill(dt)
            adapter.Update(dt)
            con1.Close()
        Next

Red
Blue

is input into the database as

RedBlue