Data display on datagridview using stream reader

See more:

VB

DataGridView

DataRow

Hi,

is there any way I could display a data to the datagrid view Columns through depending on the value of a cell. I was working for a program relating a time and attendance system that would disperse the data from the csv file to the correct data column on the datagrid view. What I want to display is the time in and time out of the specific employee in one row, but what was happening was the time in and time out creates 2 row (1 for the time in and 1 for the time out)

Here's the code details:

Dim csvreader As New StreamReader(txtboxcsv.Text, System.Text.Encoding.Default)
Dim sline As String = ""
Do
sline = csvreader.ReadLine
    If sline Is Nothing Then Exit Do
    Dim columns() As String = sline.Split(",")
    Dim row As DataRow = datatable.NewRow
    Try

        row("Employee Number") = columns(0)
        If columns(2) = "IN" Then
            row("In Date") = columns(1)
        ElseIf columns(2) = "OUT" Then
            row("Out Date") = columns(1)
        End If
        row("In Location") = "PAM"
        row("Out Location") = "PAM"
        Dim d As String
        d = Convert.ToDateTime(columns(1)).ToString("dd-MMM-yyyy")
        row("Shift Starttime") = d + " " + "9:00"
        row("ShiftEndTime") = d + " " + "18:00"
        row("Attendance Date") = d
        row("Time Zone") = 150
        datatable.Rows.Add(row)
    Catch ex As Exception
        MessageBox.Show(ex.Message)
    End Try

Loop
csvreader.Close()
DataGridView1.DataSource = datatable
Me.Text = datatable.Rows.Count & "rows"

What I have tried:

couldn't find the best condition i could use.