Listview problemen met gegevens inladen

[harolda1980]

Ik heb mijn appilicatie draaiende en als ik debug mode het naloop zie je de data in de listview geladen worden per kolom.
Als ik kijk naar de uiteindelijke listview zie je dat hij niet overal gevuld is. En zie je gewoon lege regels.

Iemand een idee hoe dit kan?

Net of hij op een of andere manier ontkoppeld bij sommige regels.
Vaak is de eerste kolom wel gevuld.

Dim lv_item = 0
        Dim rs As New ADODB.Recordset
        Try
            LstKelderboek.Items.Clear()
            rs.Open(SQLString, cn)
            Do While Not rs.EOF = True
                LstKelderboek.Items.Add(rs.Fields.Item("idtblWijn").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("wijnhuis").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("Jaar").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("TblLandnm").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("tblstreek").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("tblAppellationnm").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("Aantal").Value)
                LstKelderboek.Items(lv_item).SubItems.Add(rs.Fields.Item("tblOpslagcol").Value)
                rs.MoveNext()
                lv_item = lv_item + 1
            Loop
            rs.Close()

        Catch ex As Exception
            MsgBox("Kelderboek Foutmelding: " & vbCrLf & vbCrLf & "De streken zijn niet ingeladen." & vbCrLf & vbCrLf & ex.Message)
        Finally
            rs = Nothing