Фильтр по году

Private DT As DataTable
Private dv As DataView
Private Sub Modeling_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    DT = createTable() 'моделирование источника данных
    dv = DT.DefaultView
    DataGridView1.DataSource = dv
End Sub
Private Sub Filter_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    Dim tDate As String = "2017" 'или из TextBox
    Dim s As String = "*" & tDate
    dv.RowFilter = String.Format("tstDate Like '{0}'", s) 'tstDate - имя поля в таблице DT
    DataGridView1.DataSource = dv
End Sub
Private Sub Restart_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    dv.RowFilter = ""
    DataGridView1.DataSource = dv
End Sub

Private DT As DataTable
Private Sub Modeling_Click(sender As System.Object, e As System.EventArgs) Handles Button4.Click
    DT = createTable() 'моделирование источника данных
    DataGridView1.ColumnCount = 3
    DataGridView1.Columns(0).HeaderText = "ID"
    DataGridView1.Columns(1).HeaderText = "tstValue"
    DataGridView1.Columns(2).HeaderText = "tstDate"
    dgvFill()
End Sub
Private Sub Filter_Click(sender As System.Object, e As System.EventArgs) Handles Button5.Click
    Dim tDate As String = "2017" 'или из TextBox
    Dim s As String = "*" & tDate
    For Each rw As DataGridViewRow In DataGridView1.Rows
        If Not rw.IsNewRow Then rw.Visible = rw.Cells(2).Value Like s
    Next
End Sub
Private Sub Restart_Click(sender As System.Object, e As System.EventArgs) Handles Button6.Click
    dgvFill()
End Sub
Private Sub dgvFill()
    DataGridView1.Rows.Clear()
    Dim rw As DataGridViewRow
    For Each rr As DataRow In DT.Rows
        rw = New DataGridViewRow
        rw.CreateCells(DataGridView1, {rr.Item(0), rr.Item(1), rr.Item(2)})
        DataGridView1.Rows.Add(rw)
    Next
End Sub