ListView1.Columns.Add("Имя")

        ListView1.Columns.Add("Отчество")

        ListView1.Items.Clear()

        Try

            Dim DataReader As OleDbDataReader

            Dim Command As New OleDbCommand("Select * From Клиенты", Connector)

            Connector.Open()

            DataReader = Command.ExecuteReader

            While DataReader.Read() = True

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

                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))

            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

    End Sub

    Private Sub ВыходToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles ВыходToolStripMenuItem.Click

        Close()

    End Sub

    Private Sub ListView1_ColumnClick(sender As Object, e As ColumnClickEventArgs) Handles ListView1.ColumnClick

        If (e.Column = lvwColumnSorter.SortColumn) Then

            If (lvwColumnSorter.Order = SortOrder.Ascending) Then

                lvwColumnSorter.Order = SortOrder.Descending

            Else

                lvwColumnSorter.Order = SortOrder.Ascending

            End If

        Else

            lvwColumnSorter.SortColumn = e.Column

            lvwColumnSorter.Order = SortOrder.Ascending

        End If

        Me.ListView1.Sort()

    End Sub

    Private Sub ListView1_DoubleClick(sender As Object, e As EventArgs) Handles ListView1.DoubleClick

        If Me.Text = "Клиенты" Then