Como imprimir solo 1 registro con listview

[principefreddy]

hola. les explico. necesito imprimir solo 1 registro entre 10.

esto es lo que utilizo para imprimir los 10 registros del listview. pero si solo selecciono uno como haria..


Private Sub Reporte_Todos()
Dim rs As New ADODB.Recordset
' botón para ver el reporte
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''
Set rs = nc.Execute("SELECT codigo, cedula, nombre,alias, observacion1 FROM registro ORDER BY cedula")

'Asigna el recordset al reporte
Set r1.DataSource = rs

' Muestra el reporte
r1.Show vbModal
End Sub


espero me puedan ayudar. se los agradezco mucho.
'''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''''''''''''''''''''''''''''''''''''''''''''' '''''''

[franko1809]

Si solo necesitas un registro debes saber cual es por q no le aplicas un where a la consulta para q te muestre el datoque necesitas atravez de un caja de texto

Set rs = nc.Execute("SELECT codigo, cedula, nombre,alias, observacion1 FROM registro WHERE CAMPO='" & TEXT1.TEXT & "' ORDER BY cedula")

[seba123neo]

no hace falta filtro, proba ponerle a lo ultimo LIMIT 0,1 y si usas SQL Server con TOP 1

saludos.