Access ten Listview e veri almada sorun

[Yitik]

Merhaba arkadaşlar,
Aşağıdaki kodlarla access veri tabanının sadece ilk satırını listview nesnesine alabiliyorum. Bir çok örnek incelememe ve değişik kodlar denememe rağmen nerede hata yaptığımı bulamadım.Verilerin tamamını almak için kodun neresini, ne şekilde değiştirmeliyim?
Herkese iyi pazarlar.

 Private Sub CommandButton3_Click()
    Set rs = CreateObject("adodb.recordset")
    Call baglan
        rs.Open "select * from kayit", con, 1, 1
    With ListView1
    ListView1.ColumnHeaders.Clear
        .View = lvwReport
        .Gridlines = True
        .FullRowSelect = True
        .ColumnHeaders.Add , , "K.No", 35, 0
        .ColumnHeaders.Add , , "G.Tarihi", 65, 0
        .ColumnHeaders.Add , , "F.Tarihi", 65, 0
        .ColumnHeaders.Add , , "Fatura No", 65, 0
        .ColumnHeaders.Add , , "C.Kod", 40, 0
        .ColumnHeaders.Add , , "Ünvan", 300, 0
        .ColumnHeaders.Add , , "Şehir", 70, 0
        .ColumnHeaders.Add , , "Marka", 70, 0
        .ColumnHeaders.Add , , "Referans No", 80, 0
        .ColumnHeaders.Add , , "Adet", 30, 0
        .ColumnHeaders.Add , , "Durum", 70, 0
        End With
    ListView1.ListItems.Clear
    If rs.RecordCount > 0 Then
    ListView1.ListItems.Add , , rs.Fields(0).Value
        For i = 2 To ListView1.ColumnHeaders.Count
            ListView1.ListItems(ListView1.ListItems.Count).ListSubItems.Add , , rs.Fields(i - 1).Value
        Next i
    End If
    End Sub