Search button using VB.NET

See more:

VB10

i am trying a code i saw in the internet and it seems understandable
but im having a dificulty how to declare the variable used
i am using vb.net 2010 , i think the code i saw is from another version
can i improvise a code?
or i can declare it on vb.net?

im having a problem on the dtgresult

What I have tried:

con.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" & Application.StartupPath & "\plan.mdb"

        Label1.Enabled = False
        TextBox1.Visible = False


        sql = "Select * from Elementary where SchoolName like '%" & TextBox1.Text & "%' or SY LIKE '%" & TextBox1.Text & "%'"

        dt = New DataTable
        Try
            'open the connection
            con.Open()
            'bind the SQL and the connection through OleDBDataAdaoter and stored to da
            da = New OleDb.OleDbDataAdapter(sql, con)
            'and whatever the value of da will be fill into dt our imaginary data table
            da.Fill(dt)
            'get the datasource of datagridview from our data table
            dtgresult.DataSource = dt

        Catch ex As Exception
            'will throw an error if something went wrong.
            MsgBox(ex.Message, MsgBoxStyle.Information)
        End Try
        'close connection
        con.Close()
    End Sub