Im using visual basic 6, Access, ADO and Crystal Report.

I have to records in the database and when i select one it shows both, how can i only show the selected record?
This is my code im listing with dblist:



Private Sub cmdPreview_Click()
CrystalReport1.PrintReport
End Sub

Private Sub cmdProdutos_Click()
frmListFact.Hide
frmADOFacObras.Show
End Sub

Private Sub cmdSair_Click()
Unload Me
frmMenuSel.Show
End Sub

Private Sub Combo1_Click()

Select Case Combo1.ListIndex
Case 0
DBList1.ListField = "Id_Factura"
Case 1
DBList1.ListField = "Data"
Case 2
DBList1.ListField = "Data_Vencim"
Case 3
DBList1.ListField = "Cliente"
Case 4
DBList1.ListField = "Descricao"
Case 5
DBList1.ListField = "Desconto"
Case 6
DBList1.ListField = "IVA"
Case 7
DBList1.ListField = "Valor_Liquido"
Case 8
DBList1.ListField = "Base_do_IVA"
Case 9
DBList1.ListField = "Valor_Desconto"
Case 10
DBList1.ListField = "Total_Factura"

End Select

End Sub



Private Sub DBList1_Click()

Data1.Recordset.Bookmark = DBList1.SelectedItem

End Sub

Private Sub Form_Load()

Combo1.AddItem "Id Factura"
Combo1.AddItem "Data"
Combo1.AddItem "Data Vencim"
Combo1.AddItem "Cliente"
Combo1.AddItem "Descricao"
Combo1.AddItem "Desconto"
Combo1.AddItem "IVA"
Combo1.AddItem "Valor Liquido"
Combo1.AddItem "Base do IVA"
Combo1.AddItem "Valor Desconto"
Combo1.AddItem "Total Factura"

End Sub