Private Sub InitLSV()
        Dim AllLotRow As DataRow
        daLot.Fill(dsLot)
        frmTenant.daTenant.Fill(frmTenant.dsTenant)

        For i As Integer = 0 To dsLot.LOT.Rows.Count - 1 Step 1
            AllLotRow = dsLot.LOT.Rows(i)
            AddNewLVRow(lsvLot, AllLotRow)

            If DateTime.Compare(DateTime.ParseExact(AllLotRow("DueDate"), My.Settings.DateFormat, iCultureInfo), Date.Now()) < 0 Then
                lsvLot.Items.Item(lsvLot.Items.Count - 1).BackColor = Color.Pink
            End If
        Next
    End Sub

view all data and partial data for listview

VB.NET