Выборка из базы данных Access по условию

Public tb, tbCopy As DataTable
Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    'загружаем таблицу
    loadTable("books.mdb")
    'и делаем с нее копию
    tbCopy = tb.Clone
    For Each rr As DataRow In tb.Select
        tbCopy.Rows.Add(rr.ItemArray)
    Next
    DataGridView1.DataSource = tb
End Sub
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
    'все книги с числом страниц больше TextBox1.Text
    Form2.Tag = TextBox1.Text
    Form2.ShowDialog()
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles Button2.Click
    'все книги с годом издания равным TextBox2.Text
    Form3.Tag = TextBox2.Text
    Form3.ShowDialog()
End Sub
'…
Public Class Form2
    Private Sub Form5_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dv As DataView = Form1.tbCopy.DefaultView
        dv.RowFilter = "Pages > " & Me.Tag
        DataGridView1.DataSource = dv
    End Sub
End Class
Public Class Form6
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim dv As DataView = Form1.tbCopy.DefaultView
        dv.RowFilter = "Year = " & Me.Tag
        DataGridView1.DataSource = dv
    End Sub
End Class

Dim s As String = "12.05.2010"
Dim year As Integer = CDate(s).Year
MsgBox(year)

dv.RowFilter = "Year = " & CDate(Me.Tag.ToString()).Year

Public Class Form3
    Private tmpColumn As DataColumn = New DataColumn
    Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim tmpTable As DataTable = Form1.tbCopy
        With tmpColumn
            .DataType = System.Type.GetType("System.String")
            .ColumnName = "dtString"
            .Expression = "Convert(RecordingDate, 'System.String')"
        End With
        tmpTable.Columns.Add(tmpColumn)
        Dim dv As DataView = tmpTable.DefaultView
        Dim s As String = "'*" & Me.Tag.ToString & "*'"
        dv.RowFilter = "dtString LIKE " & s
        DataGridView1.DataSource = dv
        DataGridView1.Columns(DataGridView1.ColumnCount - 1).Visible = False
    End Sub
    Private Sub Form3_FormClosing(sender As System.Object, e As System.Windows.Forms.FormClosingEventArgs) Handles MyBase.FormClosing
        Form1.tbCopy.Columns.Remove(tmpColumn)
    End Sub
End Class

Private Sub Form3_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
    Dim tt = (From r As DataRow In Form1.tbCopy.Rows Where (CType(r!RecordingDate, System.DateTime)).Year = Me.Tag).ToArray
    If tt.Length > 0 Then
        Dim dd As DataTable = Form1.tbCopy.Clone
        For Each rr As DataRow In tt
            dd.Rows.Add(rr.ItemArray)
        Next
        DataGridView1.DataSource = dd
    End If
End Sub

      Dim Con As New OleDb.OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0; Data Source=" & ff) ' Переменная для подключения базы
 SqlCom = New OleDb.OleDbCommand("SELECT * FROM [am]", Con) ' Указываем строку запроса и привязываем к соединению
            Con.Open() ' Открываем соединение
            SqlCom.ExecuteNonQuery() 'Выполняем запрос
            DA = New OleDb.OleDbDataAdapter(SqlCom) 'Через адаптер получаем результаты запроса
            DA.Fill(DT) ' Заполняем таблицу результатми
            Me.dd.DataSource = DT ' Привязываем Грид к источнику данных
            Con.Close() ' Закрываем соединение
                       'и делаем с нее копию
            tbCopy = DT.Clone
            For Each rr As DataRow In DT.Select
                tbCopy.Rows.Add(rr.ItemArray)
            Next
            dd.DataSource = DT

 DataGridView1.Columns(индекс столбца).Visible = False