Using sr As IO.StreamReader = _
                      IO.File.OpenText(OpenFileDialog1.FileName)
                line = sr.ReadLine()
                Do While line IsNot Nothing
                    Dim c As Char = CChar(vbTab)
                    Dim data() As String = line.Split(c)
                    If data.Length > 0 Then
                        If i = 0 Then
                            For Each item In data
                                dt.Columns.Add(New DataColumn())
                            Next item
                            i += 1
                        End If
                        Dim row As DataRow = dt.NewRow()
                        row.ItemArray = data
                        dt.Rows.Add(row)
                    End If
                    line = sr.ReadLine()
                Loop
            End Using