Private Sub TextBox1_TextChanged(ByVal sender As Object, ByVal e As System.EventArgs) Handles TextBox1.TextChanged
Dim str As String = TextBox1.Text & "%"
Dim Connection As String = Application("connection")
Dim Connection1 As New SqlConnection(Connection)
Dim t As String = Application("dbopen")
Dim f As String = Application("Field")
Dim cmdGetRec As New SqlCommand("SELECT '" & f & "' FROM '" & t & "' WHERE '" & f & "' LIKE '" & str & "'", Connection1)
Dim drGetRec As SqlDataReader
Connection1.Open()
drGetRec = cmdGetRec.ExecuteReader()
ListBox1.DataSource = drGetRec
ListBox1.DataTextField = "f"
ListBox1.DataBind()
End Sub