Suponiendo que la cadena de conexión a tu db sea correcta por ejemplo veo que lo siguiente esta mal:
Cita: if miRS.eof ="" then
dim Result = false
else
Result = True
end if
Pues solo declaras el Result si es EOF pero en el Else no lo declaras. Iria mejor declarar las variable fuera.
Aunque es un fallo tribial pues si no lo declaras creo que funciona igual. El error mostrado es poco descriptivo.