[سؤال] أظهار خطئ بشكل مستمر في كود البحث

كود :

Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click



        zarsw.Clear()

        Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)

        cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"

        dazarsw = New OleDbDataAdapter(cmd)

        dazarsw.Fill(zarsw)

        DataGridView1.DataSource = zarsw

    End Sub

End Class

كود :

Imports System.Data

Imports System.Data.OleDb

Public Class Form2

    Dim co As New OleDbConnection



    Dim dazarsw As New OleDbDataAdapter

    Dim zarsw As New DataTable







    Private Sub GroupBox1_Enter(sender As Object, e As EventArgs) Handles GroupBox1.Enter



    End Sub



    Private Sub PictureBox2_Click(sender As Object, e As EventArgs) Handles PictureBox2.Click



    End Sub





    Private Sub GroupBox2_Enter(sender As Object, e As EventArgs) Handles GroupBox2.Enter



    End Sub



    Private Sub Form2_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        co.ConnectionString = "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=swcc.accdb;Jet OleDb:Database Password =vah[ldglvdlphl];"

        co.Open()



        dazarsw = New OleDbDataAdapter("select * from zarsw", co)

        dazarsw.Fill(zarsw)

        DataGridView1.DataSource = zarsw



    End Sub



    Private Sub DataGridView1_CellContentClick(sender As Object, e As DataGridViewCellEventArgs) Handles DataGridView1.CellContentClick



    End Sub



    Private Sub PictureBox1_Click(sender As Object, e As EventArgs) Handles PictureBox1.Click



        zarsw.Clear()

        Dim cmd As New OleDbCommand("slect * from zarsw where like@[الاسم]", co)

        cmd.Parameters.Add("@[الاسم]", OleDbType.VarChar).Value = "%" & TextBox20.Text.Trim & "%"

        dazarsw = New OleDbDataAdapter(cmd)

        dazarsw.Fill(zarsw)

        DataGridView1.DataSource = zarsw

    End Sub

End Class

PHP كود :

zarsw.Clear()
        Dim cmd As New OleDbCommand("slect * from zarsw where [الاسم] like '" & TextBox20.text & "'", co)

        dazarsw = New OleDbDataAdapter(cmd)
        dazarsw.Fill(zarsw)
        DataGridView1.DataSource = zarsw 