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

Private Sub Form3_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load 
 
 
 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) 
 _metro = pp(5) 
 _telf = CLng(pp(6)) 
 _mail = pp(7) 
 _maildomain = CInt(pp(8)) 
 _edu = pp(9) 
 _marital = pp(10) 
 _vac = pp(11) 
 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 metro() As String 
 Get 
 Return _metro 
 End Get 
 Set(ByVal value As String) 
 _metro = 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 
 Public Property mail() As Integer 
 Get 
 Return _mail 
 End Get 
 Set(ByVal value As Integer) 
 _mail = value 
 End Set 
 End Property 
 Public Property maildomain() As String 
 Get 
 Return _maildomain 
 End Get 
 Set(ByVal value As String) 
 _maildomain = value 
 End Set 
 End Property 
 Public Property edu() As String 
 Get 
 Return _edu 
 End Get 
 Set(ByVal value As String) 
 _edu = value 
 End Set 
 End Property 
 Public Property marital() As String 
 Get 
 Return _marital 
 End Get 
 Set(ByVal value As String) 
 _marital = value 
 End Set 
 End Property 
 Public Property vac() As String 
 Get 
 Return _vac 
 End Get 
 Set(ByVal value As String) 
 _vac = value 
 End Set 
 End Property

If Chr(keyascii) = "en-US" Then
    keyascii = Asc("ru-RU") 
End If

Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
    TextBox1.Text = ""
    MaskedTextBox1.Text = ""
    ComboBox1.SelectedIndex = 0
    DataGridView1.DataSource = bb
    setHeaderText()
End Sub
 
Private Sub FindFam_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
    If TextBox1.Text.Length = 0 Then Return
    Dim Fam As String = TextBox1.Text
    Dim sel = From b As Biography In bb Where b.FIO.StartsWith(Fam)
    DataGridView1.DataSource = Nothing
    If sel.Count > 0 Then
        DataGridView1.DataSource = sel.ToArray
        setHeaderText()
    Else
        MsgBox("Нет данных!")
    End If
End Sub