Consulta Sql

[joseamesti]

Hola tengo el siguiente codigo, solo fijense
en la variable id_alumno , en la consultab sql llamada consulta y en rreporte.open, lo demas esta bien, por algún motivo que desconozco, me arroja un error, si encuentran el error cosa que creo les agradesco, chao y gracias.

Private Sub DataGrid1_DblClick()
Dim informe As String
Dim suma As Long
Dim consulta As String
id_alumno = CInt(DataGrid1.Column(0).Value)
MsgBox "El numero seleccionado es:" & " " & id_alumno
suma = id_alumno + 1
MsgBox "la suma es:" & " " & suma
nombrecompleto = DataGrid1.Columns(1).Value & " " & DataGrid1.Columns(2).Value
informe = MsgBox("Desea obtener un informe sobre" & " " & nombrecompleto, vbOKCancel, "Informacion")
If informe = vbOK Then
Set rreporte = New ADODB.Recordset
rreporte.ActiveConnection = creprobado
rreporte.CursorType = adOpenKeyset
rreporte.LockType = adLockOptimistic
MsgBox DataGrid1.Columns(0).Text
consulta = "select * from alumnos where id=id_alumno"

rreporte.Open "SELECT * FROM alumnos where id=id_alumno"
Adodc1.Refresh
DataGrid1.Refresh
Set DataReport1.DataSource = rreporte
DataReport1.Show 1


End If



End Sub