Sub ListView1_ItemClick (Position As Int, Value As Object)
RemoveViews
Activity.LoadLayout("Product")
ItemSelected = Value
Cur = SQL1.ExecQuery("SELECT Titulo, Imagen, Localidad, Producto, Fecha, Ingredientes, Proceso FROM Countries")
For i = 0 To Cur.RowCount - 1
Cur.Position = i
Label_Titulo.Text = Cur.GetString("Titulo")
Label_Fecha.Text = Cur.GetString("Fecha")
ImageView_Foto.Bitmap = LoadBitmap(File.DirAssets, Cur.GetString("Imagen"))
Label_Producto.Text = Cur.GetString("Producto")
Label_Localidad.Text = Cur.GetString("Localidad")
Next
' Cur.Close
End Sub