[سعود]

PHP كود :

 Private Sub TextBox1_TextChanged(sender As Object, e As EventArgs) Handles TextBox1.TextChanged
        Using con As New OleDb.OleDbConnection("provider=microsoft.ace.oledb.12.0;data source=db.accdb")
            Dim dt As New DataTable
            If con.State = ConnectionState.Closed Then con.Open()
            Using cm As New OleDb.OleDbCommand("", con)
                cm.CommandText = "select * from tb where tname like'%" & TextBox1.Text & "%'"
                dt.Load(cm.ExecuteReader)
                ListBox1.DataSource = Nothing
                ListBox1.Items.Clear()
                ListBox1.DataSource = dt
                ListBox1.DisplayMember = "tname"
            End Using

            If con.State = ConnectionState.Open Then con.Close()
        End Using
    End Sub 


جرب الكود بمثال مستقل فان عمل يتبقى ان تفحص مشروعك للبحث عن سر عدم عمله.