Consulta sql

[MCasanova]

Hola joseamesti:
Aunque no comprendo mucho lo que tratas de hacer, lo primero que visualizo incorrecto es la select:

consulta = "select * from alumnos where id=id_alumno"

id_alumno es una variable por lo tanto debe concatenarse al string, así

consulta = "select * from alumnos where id=" & id_alumno

Idem en :
rreporte.Open "SELECT * FROM alumnos where id = " & id_alumno

Espero haberte servido de algo

Saludos