Import dat files to DataTable and bind DataGridView in C# and VB.Net

Dear Sir,

I'm Trying to import dat files from datatable into datagridview with VB.NET.

Please Guide Me

Below Mycode :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click
    'openFileDialog1.ShowDialog()
    'TextBox1.Text = openFileDialog1.FileName
    'BindData(TextBox1.Text)
    dt.Columns.Add("ID", GetType(String))
    dt.Columns.Add("DATE", GetType(String))
    dt.Columns.Add("TIME", GetType(String))
    dt.Columns.Add("FP", GetType(String))
    dt.Columns.Add("IN/OUT", GetType(String))
    dt.Columns.Add("OTHERS1", GetType(String))
    dt.Columns.Add("OTHERS2", GetType(String))
 
    Dim fName As String = ""
    OpenFileDialog1.InitialDirectory = "D:\TestFile"
    OpenFileDialog1.Filter = "Dat files(*.Dat)|*.Dat"
    OpenFileDialog1.RestoreDirectory = True
    If (OpenFileDialog1.ShowDialog() = DialogResult.OK) Then
        fName = OpenFileDialog1.FileName
    End If
 
    Dim TextLine As String = ""
    Dim SplitLine() As String
 
    If System.IO.File.Exists(fName) = True Then
        Dim objReader As New System.IO.StreamReader(fName, Encoding.Default)
        Dim index As Integer = 0
        Do While objReader.Peek() <> -1
            If index > 0 Then
                TextLine = objReader.ReadLine()
                SplitLine = Split(TextLine, " "c)
                dt.Rows.Add(SplitLine)
            Else
                TextLine = objReader.ReadLine()
            End If
            index = index + 1
        Loop
        DataGridView1.DataSource = dt
    Else
        MsgBox("File Does Not Exist")
    End If
End Sub

Desired Result

for columns IN/OUT if the value is 0 then it means IN and if the value is 1 it means OUT