Reporte de un solo registro.

[t0n1]

Hola!!!. Quisiera crear un reporte individual con una consulta que utilice dos datos, código y curso.
Armé este código:

Dim opc As String
Dim opc1 As String
Dim Codigo As Integer
Dim CodigoCurso As String

opc = InputBox("Ingrese el código del alumno")

If opc = "" Then
MsgBox "Ingrese un código"
Exit Sub
Else
If Not IsNumeric(opc) Then
MsgBox "Ingrese un código numérico"
Exit Sub
Else
Codigo = opc
End If
End If

opc1 = InputBox("Ingrese el código del curso del alumno")

If opc1 = "" Then
MsgBox "Ingrese un código de curso"
Exit Sub
Else
If Not IsNumeric(opc) Then
MsgBox "Ingrese un código numérico"
Exit Sub
Else
CodigoCurso = opc1
End If
End If

If Not Conectar() Then Exit Sub
sql = "select * from Alumnos where Codigo = " & Codigo & " and Curso = '" & CodigoCurso & "'"
Set Rs = Cn.Execute(sql)
If Not Rs.EOF Then
DataEnvironment1.ReporteIndividualAlumnos opc
DataReportAlumnosInd.Show vbModal
DataEnvironment1.rsReporteIndividualAlumnos.Close
Else
MsgBox "El código es incorrecto"
Exit Sub
End If

La cuestión es que en la sentencia "DataEnvironment1.ReporteIndividualAlumnos opc", me leé sólo el dato que se guardó en el primer inputbox y aparecen todos los registros con ese código cuando sólo quiero un solo registro cuya consulta sean las de código y curso.

Saludos!!!!