Private Sub EditText_TextChanged (Old As String, New As String)
Private i as Int
ListView.Clear
Private Cursor1 as Cursor = SQL1.ExecQuery($"SELECT * FROM PRODUTOS WHERE CODBARRAS LIKE '%${New}%'"$)
For i = 0 to Cursor1.RowCount - 1
Cursor1.Position = i
ListView.Add(Cursor1.GetString("CODBARRAS"))
Next
End Sub