خطأ في بحث و فرز بالداتا قريد

Imports System.Data
Imports System.Data.OleDb
Public Class Form1
    Dim cnstr As New OleDbConnection("Provider=Microsoft.ACE.OLEDB.12.0;Data Source=|DataDirectory|\datagridsearch.mdb")
    Dim da As New OleDbDataAdapter("select * from table1", cnstr)
    Dim ds As New DataSet
    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load


        da.Fill(ds, "table1")
        DataGridView1.DataSource = ds.Tables(0)


    End Sub


    Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles Button1.Click
        ds.Tables(0).DefaultView.RowFilter = "Convert(id,System.String) like '%" + TextBox1.Text + "%'"
    End Sub


    Private Sub CheckBox2_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox2.CheckedChanged
        ds.Tables(0).DefaultView.RowFilter = "stats=" & CheckBox1.Checked
    End Sub


    Private Sub CheckBox1_CheckedChanged(sender As System.Object, e As System.EventArgs) Handles CheckBox1.CheckedChanged
        ds.Tables(0).DefaultView.RowFilter = ""
    End Sub
End Class