Visual Basic - Reporte de un solo registro.

Hola!!!. Quisiera crear un registro individual con una consulta que me traiga 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.ReporteIndividualInformes opc
DataReportIndInf.Show vbModal
DataEnvironment1.rsReporteIndividualInformes.Close
Else
MsgBox "El código es incorrecto"
Exit Sub
End If

End Sub

La cuestión es que en la sentencia "DataEnvironment1.ReporteIndividualInformes 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 con los datos código y curso.

Saludos!!!!

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 cuyas consultas sean las de código y curso.

Saludos!!!!

Me gustaria entender tu codigo para poder ayudarte:

'Que haces con este recordset?
If Not Conectar() Then Exit Sub
sql = "select * from Alumnos where Codigo = " & Codigo & " and Curso = '" & CodigoCurso & "'"
Set Rs = Cn.Execute(sql)

'Para que es este loop? cual es el objetivo de este bloque?
If Not Rs.EOF Then
'Aqui solo estas pasando un solo parametro que es opc. Me imagino que deberias pasar 2 parametros: Codigo y CodigoCurso...
DataEnvironment1.ReporteIndividualInformes opc
DataReportIndInf.Show vbModal
DataEnvironment1.rsReporteIndividualInformes.Close
Else
MsgBox "El código es incorrecto"
Exit Sub
End If
End Sub

Dejame saber para poder ayudarte...

Saludos

Con el record set, hago la consulta en la base con los dos datos que recogí de los inputbox anteriores (opc = codigo), (opc1 = curso).

En el loop, si no es fín de archivo, que me traiga todo el registro completo con los datos restantes de la base donde está el alumno y me los muestre en el reporte.

El problema está en lo que marcaste:

DataEnvironment1.ReporteIndividualInformes opc
DataReportIndInf.Show vbModal
DataEnvironment1.rsReporteIndividualInformes.Close

No sé como hacer para que me tome los dos parámetros y no solamente, el primer opc donde me hace todos los reportes con ese código y no, el de un alumno solo.

Aqui tienes un ejemplo de pasar parametros:
http://www.recursosvisualbasic.com.ar/htm/tutoriales/datareport.htm#4
Suerte!

Gracias!