Как занести данные из текстового файла в DataGridView?

DataGridView1.Item(0, 0).Value = FIO
DataGridView1.Item(0, 1).Value = BirthDay

Dim ReadLine As IO.StreamReader
Dim line As String
Dim i as integer
ReadLine = FileIO.FileSystem.OpenTextFileReader(MyTxtFile) 'Открываем для чтения
 
Do Until ReadLine.EndOfStream 'Если конец файла - выходим из цикла
line = ReadLine.ReadLine 'считываем строку
DataGridView1.Item(i, 0).Value = split(line, ",").GetValue(0)
DataGridView1.Item(i, 1).Value = split(line, ",").GetValue(1)
DataGridView1.Item(i, 2).Value = split(line, ",").GetValue(2)
'И т.д.
i+=1 'На следующую строку
Loop
ReadLine.Close() 'Закрываем файл для чтения

Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    Dim fName As String = IO.Path.Combine(Application.StartupPath, "tst.txt")
    Dim records() As String = IO.File.ReadAllLines(fName, System.Text.Encoding.Default)
    Dim bb As New List(Of Biography)
    For Each rr As String In records
        bb.Add(New Biography(rr.Split(","c)))
    Next
    DataGridView1.DataSource = bb
End Sub
'…
Public Class Biography
    Public Sub New(ByVal pp() As String)
        _FIO = pp(0)
        _dd = CInt(pp(1))
        _mm = CInt(pp(2))
        _yyyy = CInt(pp(3))
        _town = pp(4)
        _telf = CLng(pp(5))
    End Sub
    Public Property FIO As String
    Public Property dd As Integer
    Public Property mm As Integer
    Public Property yyyy As Integer
    Public Property town As String
    Public Property telf As Long
End Class

Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    Dim fName As String = IO.Path.Combine(Application.StartupPath, "tst.txt")
    Dim records() As String = IO.File.ReadAllLines(fName, System.Text.Encoding.Default)
    Dim bb As New List(Of Biography)
    For Each rr As String In records
        bb.Add(New Biography(rr.Split(","c)))
    Next
    'требуемое условие (написал для примера)
    'Dim sel = From b As Biography In bb Where b.yyyy > 1998 Select b.FIO, b.town, b.telf, b.yyyy
    'Dim sel = From b As Biography In bb Where b.yyyy > 1998 And b.yyyy < 2010 Select b.FIO, b.town, b.telf, b.yyyy
    Dim sel = From b As Biography In bb Where b.town = "Москва2"
    DataGridView1.DataSource = Nothing
    If sel.Count > 0 Then
        DataGridView1.DataSource = sel.ToArray
    Else
        MsgBox("Нет данных!")
    End If
End Sub

Dim ReadLine As IO.StreamReader
Dim line As String
Dim i as integer
ReadLine = FileIO.FileSystem.OpenTextFileReader(MyTxtFile) 'Открываем для чтения
 
Do Until ReadLine.EndOfStream 'Если конец файла - выходим из цикла
line = ReadLine.ReadLine 'считываем строку
DataGridView1.Item(i, 0).Value = split(line, ",").GetValue(0)
DataGridView1.Item(i, 1).Value = split(line, ",").GetValue(1)
DataGridView1.Item(i, 2).Value = split(line, ",").GetValue(2)
'И т.д.
i+=1 'На следующую строку
Loop
ReadLine.Close() 'Закрываем файл для чтения

Public Class Form3 
 Dim keyascii As Integer 
 Dim _names, _town As String 
 Dim _dd, _mm, _yyyy As Integer 
 Dim _telf As Long 
 
 
 
 Private Sub TextBox1_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged 
 If IsNumeric(TextBox1.Text) Then 
 MsgBox("Ввод только букв!") 
 End If 
 'InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture( _' 
 'New Globalization.CultureInfo("ru-RU"))' 
 
 If InputLanguage.CurrentInputLanguage.LayoutName = "Русская" Then 
 
 Else 
 InputLanguage.CurrentInputLanguage = InputLanguage.FromCulture( _ 
 New Globalization.CultureInfo("ru-RU")) 
 'MsgBox("Ошибка! Ввод только русскими буквами!") 
 TextBox1.Text = "" 
 End If 
 
 If Chr(keyascii) = "en-US" Then 
 keyascii = Asc("ru-RU") 
 
 End If 
 
 'MsgBox(InputLanguage.CurrentInputLanguage.LayoutName) 
 End Sub 
 
 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click 
 Beep() 
 Dim message As String 
 Dim buttonsandicons As Integer 
 Dim title As String 
 Dim response As String 
 message = "Хотите выйти?" 
 title = "Выход" 
 buttonsandicons = vbYesNo + vbQuestion 
 response = MsgBox(message, buttonsandicons, title) 
 If response = vbYes Then 
 End 
 End If 
 End Sub 
 
 
 
 Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 Private class Biography() 
 
 Private Sub New(ByVal pp() As String) 
 _names = pp(0) 
 _dd = CInt(pp(1)) 
 _mm = CInt(pp(2)) 
 _yyyy = CInt(pp(3)) 
 _town = pp(4) 
 _telf = CLng(pp(5)) 
 End Sub 
 Public Property names() As String 
 Get 
 Return _names 
 End Get 
 Set(ByVal value As String) 
 _names = value 
 End Set 
 End Property 
 Public Property dd() As Integer 
 Get 
 Return _dd 
 End Get 
 Set(ByVal value As Integer) 
 _dd = value 
 End Set 
 End Property 
 Public Property mm() As Integer 
 Get 
 Return _mm 
 End Get 
 Set(ByVal value As Integer) 
 _mm = value 
 End Set 
 End Property 
 Public Property yyyy() As Integer 
 Get 
 Return _yyyy 
 End Get 
 Set(ByVal value As Integer) 
 _yyyy = value 
 End Set 
 End Property 
 Public Property town() As String 
 Get 
 Return _town 
 End Get 
 Set(ByVal value As String) 
 _town = value 
 End Set 
 End Property 
 Public Property telf() As Long 
 Get 
 Return _telf 
 End Get 
 Set(ByVal value As Long) 
 _telf = value 
 End Set 
 End Property 
 
 
 
 
 Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click 
 TextBox1.Text = "" 
 MaskedTextBox1.Text = "" 
 ComboBox1.Text = "" 
 End Sub 
 
 
 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click 
 Dim fName As String = IO.Path.Combine(Application.StartupPath, "tst.txt") 
 Dim records() As String = IO.File.ReadAllLines(fName, System.Text.Encoding.Default) 
 Dim bb As New List(Of Biography) 
 For Each rr As String In records 
 bb.Add(New Biography(rr.Split(","c))) 
 Next 
 'требуемое условие (написал для примера) 
 'Dim sel = From b As Biography In bb Where b.yyyy > 1998 Select b.FIO, b.town, b.telf, b.yyyy 
 'Dim sel = From b As Biography In bb Where b.yyyy > 1998 And b.yyyy < 2010 Select b.FIO, b.town, b.telf, b.yyyy 
 Dim sel = From b As Biography In bb Where b.town = "Москва2" 
 DataGridView1.DataSource = Nothing 
 If sel.Count > 0 Then 
 DataGridView1.DataSource = sel.ToArray 
 Else 
 MsgBox("Нет данных!") 
 End If 
 End Sub 
End Class