Consulta Sql

[sdnsdlm]

¿Id_alumnno lo tienes declarado como variable global? De todas maneras, la consulta sql está mal construida, el id_alumno es una variable y por tanto tienes que sacarla fuera, tal y como lo tienes ahora está buscando un id en la tabla que concuerde con "id_alumno", pero ojo, no con el valor id_alumno almacenado en la variable, sino con el literal "id_alumno", así que prueba con sacarlo fuera:

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

rreporte.Open "SELECT * FROM alumnos where id=" & id_alumno & ";"

Suponiendo que id es Autonumérico o numérico, en el caso de que sea texto tendrás que añadir unas comillas simples:
id='" & id_alumno & "';"

Prueba a ver.