Next

    End Sub

    Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load

        lvwColumnSorter = New Class1()

        Me.ListView1.ListViewItemSorter = lvwColumnSorter

        ListView1.Columns.Clear()

        ListView1.Columns.Add("ID")

        ListView1.Columns.Add("Наименование")

        ListView1.Columns.Add("Повреждение")

        ListView1.Columns.Add("Материал")

        ListView1.Columns.Add("Цвет")

        ListView1.Columns.Add("Стоимость")

        ListView1.Columns.Add("Услуга")

        ListView1.Columns.Add("Наличие")

        ListView1.Items.Clear()

        Try

            Dim DataReader As OleDbDataReader

            Dim Command As New OleDbCommand("Select * From Изделия", Connector)

            Dim kartinka As Integer

            kartinka = 2

            Connector.Open()

            DataReader = Command.ExecuteReader

            While DataReader.Read() = True

                If DataReader.GetValue(6) = "Химчистка" Then kartinka = 0

                If DataReader.GetValue(6) = "Крашение" Then kartinka = 1

                If DataReader.GetValue(6) = "Реставрация" Then kartinka = 2

                ListView1.Items.Add(DataReader.GetValue(0), kartinka)

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(1))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(2))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(3))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(4))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(5))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(6))

                ListView1.Items.Item(ListView1.Items.Count - 1).SubItems.Add(DataReader.GetValue(7))

            End While

            DataReader.Close()

            Connector.Close()

        Catch ex As Exception

            Connector.Close()

            MessageBox.Show(ex.Message)

        End Try

        ListView1.AutoResizeColumns(ColumnHeaderAutoResizeStyle.HeaderSize)

        For Each columnheader In Me.ListView1.Columns

            columnheader.Width = -3

        Next