Why is the wrong item highlighted - when using the following code?

Friends,

Maybe I'm missing something with this, or maybe I've been looking at it too long, but...

When I run the following sub, the wrong row is highlighted (and it seems to be highlighting the row in the previous listview - acting like (i - 1) is the result).

For example if lblPosition.Text = 3 then invariably the first row in lvQualificationsStandings2 is highlighted when the first row in lvQualificationsStandings3 should be highlighted.

Any ideas what is wrong?

when you look at this code, imagine that lblPosition.Text = 3


    Public Sub QualificationStandings(ByVal dsn)
        Dim Server As String

        Dim data As New DataSet
        Dim r As DataRow

        'Dim ColumnCount As Integer

        lvQualificationsStandings1.Items.Clear()
        lvQualificationsStandings2.Items.Clear()
        lvQualificationsStandings3.Items.Clear()

        Dim con As New SqlClient.SqlConnection(dsn)

        'fill in the data for a lap ...
        data = New DataSet

        Dim dr As SqlClient.SqlDataReader

        con = New SqlClient.SqlConnection(dsn)
        con.Open()

        Dim c As New SqlClient.SqlCommand("QualificationStandingsSP", con) ' " & txtLapToUse.Text, con)
        dr = c.ExecuteReader(CommandBehavior.SingleResult)

        Dim found As Boolean
        Dim li As ListViewItem
        Dim i As Integer = 0
        found = False

       
        While dr.Read()

            i = (i + 1)
            'li = lvQualificationsStandings.Items.Add(CarNumber)

            If dr.Item("QualID") <> Nothing Then

                If i = 1 Or i = 4 Or i = 7 Or i = 10 Or i = 13 Or i = 16 Or i = 19 Or i = 22 Or i = 25 Or i = 28 Or i = 31 Then

                    If lblCurrentPosition.Text = Nothing Then

                        If i Mod 2 = 0 Then
                            'li.BackColor = Color.White
                        Else
                            'li.BackColor = Color.LightBlue
                        End If
                        li = lvQualificationsStandings1.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))

                    ElseIf i = lblCurrentPosition.Text Then

                        li.BackColor = Color.Yellow '<<< NEW LINE
                        li.ForeColor = Color.Black
                        li = lvQualificationsStandings1.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))
                    Else
                        li = lvQualificationsStandings1.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))
                    End If

            ElseIf i = 2 Or i = 5 Or i = 8 Or i = 11 Or i = 14 Or i = 17 Or i = 20 Or i = 23 Or i = 26 Or i = 29 Or i = 32 Then

                If lblCurrentPosition.Text = Nothing Then

                    If i Mod 2 = 0 Then
                        'li.BackColor = Color.White
                    Else
                        'li.BackColor = Color.LightBlue
                    End If
                    li = lvQualificationsStandings2.Items.Add(dr("Car Number"))
                    li.SubItems.Add(dr("QualifyingSpeed"))

                ElseIf i = lblCurrentPosition.Text Then

                    li.BackColor = Color.Yellow '<<< NEW LINE
                    li.ForeColor = Color.Black
                    li = lvQualificationsStandings2.Items.Add(dr("Car Number"))
                    li.SubItems.Add(dr("QualifyingSpeed"))
                Else
                    li = lvQualificationsStandings2.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))
                    End If

            ElseIf i = 3 Or i = 6 Or i = 9 Or i = 12 Or i = 15 Or i = 18 Or i = 21 Or i = 24 Or i = 27 Or i = 30 Or i = 33 Then

                    If lblCurrentPosition.Text = Nothing Then

                        If i Mod 2 = 0 Then
                            'li.BackColor = Color.White
                        Else
                            'li.BackColor = Color.LightBlue
                        End If
                        li = lvQualificationsStandings3.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))

                    ElseIf i = lblCurrentPosition.Text Then

                        li.BackColor = Color.Yellow '<<< NEW LINE
                        li.ForeColor = Color.Black
                        li = lvQualificationsStandings3.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))
                    Else
                        li = lvQualificationsStandings3.Items.Add(dr("Car Number"))
                        li.SubItems.Add(dr("QualifyingSpeed"))
                    End If
                End If
            End If

        End While
        con.Close()
        con = Nothing
    End Sub