Bueno, primero necesitamos el error
En tu explorador, ve a herramientas->opciones de Internet->Avanzadas->
Quita el check que dice "Mostrar errores descriptivos de http" me parece que así dice
Con eso te debe aparecer el error que te manda y nos cuentas.
Y me parece que esta línea también está mal
If (Cint(RS.Fields("Galeones")))<CInt((oRs.Fields("Pr ecioG"))) then
quita tantos paréntesis que nos confunden sobre todo después de un fin de semana
If Cint(RS.Fields("Galeones")) < CInt(oRs.Fields("PrecioG")) then
Salu2,