[E100]

اختصار الكود

كود :

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click

    Dim conn As New OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\searchs.mdb")

    Dim da As New OleDbDataAdapter("select [id],[names] from [namesss] where [names] like '%" + ComboBox1.Text + "%'", conn)
    Dim dt As New DataTable
    da.Fill(dt)
    NamesssDataGridView.DataSource = dt

End Sub