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

Im trying to display data with cr but only shows the first record.
How can i change the record and see the data in cr?
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