[ramy alfoly]

كود :

Private Sub TxtName_TextChanged(sender As Object, e As EventArgs) Handles TxtName.TextChanged

       Dim dt As DataTable = nc.daadapt("SELECT * from TechT where usrname Like '%" & Replace(TxtName.Text, "'", "''") & "%'")
       ListBox1.DataSource = dt
       ListBox1.DisplayMember = "usrname"

   End Sub