End Sub

End Class

Form6

Imports System.Data

Imports System.Data.OleDb

Imports Microsoft.Office.Interop

Public Class Form6

    Private lvwColumnSorter As Class1

    Dim DataBaseFileName As String = Application.StartupPath & "\db.mdb"

    Dim Connector As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & DataBaseFileName)

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

        Dim DataReader As OleDbDataReader

        Dim Command As New OleDbCommand("Select * From [Журнал выдач]", Connector)

        Dim Command1 As New OleDbCommand("Select * From [Журнал выдач] WHERE (([Журнал выдач].ФИО) = '" & ФИО & "')", Connector)

        Dim Command2 As New OleDbCommand("Select * From [Журнал выдач] WHERE [Журнал выдач].[История] = '" & Изделие & "'", Connector)

        lvwColumnSorter = New Class1()

        Me.ListView1.ListViewItemSorter = lvwColumnSorter

        ListView1.Columns.Clear()

        ListView1.Columns.Add("ID")

        ListView1.Columns.Add("ФИО")

        ListView1.Columns.Add("История")

        ListView1.Columns.Add("IDGurnal")

        ListView1.Items.Clear()

        If Me.Text = "Текущий отчет..." Then

            Try

                Connector.Open()

                DataReader = Command.ExecuteReader

                While DataReader.Read() = True

                    ListView1.Items.Add(DataReader.GetValue(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

        End If

        If Me.Text = "Отчет текущий по: " & ФИО Then

            Try