Hola.
Sin analizár la lógica empleada ya que no sé lo que buscas que haga el código, pareciera funcionar.
A excepción de un detalle :
Mas allá que
j este pegado al
then (pudo ser error de tipeo).
Sucede que si la variable
j no es de tipo Boolean te va a dar error de expresión en la línea del
if/then.
Y si lo és, te va a dar un error de incompatibilidad de tipos cuando le asignas el valor del campo
Monto del Query.
Por otro lado me parece un código muy complicado para mostrar un mensaje despedida...
Saludos.
