caricaicone.Source = Query

non va messo dopo l'end if?