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

[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.