[saeededata]

Hi
I search for a program built. But now a problem across. Please help.

Imports System.Data.OleDb

Public Class Form1
    Public Const cnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=db1.mdb;Jet OLEDB:Database Password=1"
    Dim con As OleDbConnection = New OleDbConnection(cnString)
    Dim ds As New DataSet
    Public Sub fullfill()

        Dim S2 As String = "SELECT * FROM TestTable"
        Dim objdataadapter As New OleDbDataAdapter(S2, con)
        objdataadapter.Fill(ds, "TestTable")

        If con.State = ConnectionState.Closed Then con.Open()

        DataGridView1.DataSource = ds
        DataGridView1.DataMember = "TestTable"
        DataGridView1.Sort(DataGridView1.Columns(1), System.ComponentModel.ListSortDirection.Ascending)

    End Sub

    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        fullfill()
    End Sub

    Private Sub SearchName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchName.TextChanged
        Dim dv As New DataView(ds.Tables(0))
        dv.RowFilter = "name like '%" & SearchName.Text & "%'"
        DataGridView1.DataSource = dv
        DataGridView1.Refresh()

    End Sub

My Programs Source:
 TestOLEDB4wSearch.zip (123.08K)
Number of downloads: 45

[saeededata]

HEEEEEEEEEEEEEEEEEEEEEEEEEEELP

PLEEEEEEEEEEEEEEEEEEEEEEEEEEAS

[Elda]

Try this:

 Private Sub SearchName_TextChanged(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles SearchName.TextChanged
     
    Dim ds As New DataSet
Dim con As OleDbConnection = New OleDbConnection(cnString)
Dim cnString As String = "Provider=Microsoft.Jet.OLEDB.4.0;Persist Security Info=False;Data Source=db1.mdb;Jet OLEDB:Database Password=1"
 Dim S2 As String 
con.open()


S2 = "SELECT * FROM TestTable where IdNumber Like '" & Txtnumber.Text & "'"

Dim cmd As New SqlCommand(S2, con)
 adapt = New OleDbDataAdapter(cmd)
        ds = New DataSet
        adapt.Fill(ds, "TestTable")
        dt = ds.Tables(0)
        DataGridView1.DataSource = dt
        cn.Open()




    End Sub