el error lo da en esta linea?:
g=(RSlodhp.Fields("Galeones"))
Si es así, debe ser que el recordset "RSlodhp" no tiene ningún registro.
... aunque no entiendo algo... primero comprobás que el usuario exista:
Código:
sql = "SELECT * FROM Alumnos WHERE Nick = '"& txtlogin &"'"
... y si existe, continuás. Pero luego, creás otro recordset...
Código:
SQLlodhp="SELECT Nick, Galeones FROM Alumnos WHERE Nick = '"& login &"'"
... que tiene una variable distinta en el WHERE (ambas marcadas en negrita)
Además, ¿para qué creas un segundo recordset si en el primero ya estás haciendo un
SELECT * FROM Alumnos?