How can i make individual print?

[dbasenoob]

i have a problem it prints all the records in database,then
then how can i make a individual print via clicking the item on list box then click the print button?

here's the code

Private Sub cmdPrint_Click()
Dim rsRep As ADODB.Recordset
Set rsRep = New ADODB.Recordset

rsRep.Open "select * from info", CN ' CN is active connection

Set DataReport1.DataSource = rsRep
DataReport1.Show vbModal
  
End Sub

please supply my code if there is lacking.