Private Sub btnreport_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnreport.Click
        Dim con As New System.Data.OleDb.OleDbConnection("PROVIDER=Microsoft.ACE.OLEDB.12.0;Data Source = database.accdb;Jet OLEDB:Database Password=empire!@#")
        Dim cmd As New System.Data.OleDb.OleDbCommand("SELECT * FROM tblck", con)
        con.Open()
        Dim dr As System.Data.OleDb.OleDbDataReader = cmd.ExecuteReader
        Dim filename As String = "/" & Now.Month & "-" & Now.Day & "-" & Now.Year & ".txt"
        Dim writer As New System.IO.StreamWriter(System.IO.Directory.GetCurrentDirectory & filename)

        Dim dt As DateTime = DateTime.Now

        Dim totalcheckins As Integer = 0
        Dim totalAM As Integer = 0
        Dim totalPM As Integer = 0
        Dim unique As New ArrayList()
        Dim trainingguest As Integer = 0
        Dim classesguest As Integer = 0

        Dim monthtotal As Integer = 0
        Dim monthAM As Integer = 0
        Dim monthPM As Integer = 0
        Dim monthunique As New List(Of String)
        Dim monthtrainingguest As Integer = 0
        Dim monthclassesguest As Integer = 0

        Dim daytotal As Integer = 0
        Dim dayAM As Integer = 0
        Dim dayPM As Integer = 0
        Dim dayunique As New List(Of String)
        Dim daytrainingguest As Integer = 0
        Dim dayclassesguest As Integer = 0

        Dim classtotal As New List(Of String)

        While dr.Read
            '''''''''''''''Year statistics'''''''''''''''''''''''''''
            totalcheckins += 1

            If Not unique.Contains(dr("RealID").ToString) Then
                unique.Add(dr("RealID").ToString)
            End If

            If dr.Item("Datee").ToString.Contains("AM") Then
                totalAM += 1
            ElseIf dr.Item("Datee").ToString.Contains("PM") Then
                totalPM += 1
            End If

            If dr("Guest").ToString.Contains("Training") Then
                trainingguest += 1
            End If

            If dr("Guest").ToString.Contains("Classes") Then
                classesguest += 1
            End If '''''''''''''''''''''''''''''''''''''''''''''''''''


            ''''''''''''''''''''Month Statistics''''''''''''''''''''''''''
            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) Then
                If Not monthunique.Contains(dr("RealID").ToString) Then
                    monthunique.Add(dr("RealID"))
                End If
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) Then
                monthtotal += 1
            End If
            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains("AM") Then
                monthAM += 1
            ElseIf dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains("PM") Then
                monthPM += 1
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr("Guest").ToString.Contains("Training") Then
                monthtrainingguest += 1
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr("Guest").ToString.Contains("Classes") Then
                monthclassesguest += 1
            End If '''''''''''''''''''''''''''''''''''''''''''''''''''


            ''''''''''''''''''''Day Statistics'''''''''''''''''''''''''''''''''''
            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) Then
                If Not dayunique.Contains(dr("RealID").ToString) Then
                    dayunique.Add(dr("RealID"))
                End If
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) Then
                daytotal += 1
            End If
            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) And dr.Item("datee").ToString.Contains("AM") Then
                dayAM += 1
            ElseIf dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) And dr.Item("datee").ToString.Contains("PM") Then
                dayPM += 1
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) And dr("Guest").ToString.Contains("Training") Then
                daytrainingguest += 1
            End If

            If dr.Item("datee").ToString.Contains(dt.ToString("MMMM")) And dr.Item("datee").ToString.Contains(dt.ToString("dddd")) And dr("Guest").ToString.Contains("Classes") Then
                dayclassesguest += 1
            End If '''''''''''''''''''''''''''''''''''''''''''''''''''

            ''''''''''''''''''''Class Statistics'''''''''''''''''''''''''''''''''''
            If Not classtotal.Contains(dr("class").ToString) Then
                classtotal.Add(dr("class").ToString)
            End If


        End While


        writer.WriteLine("[-Year statistics-] ")
        writer.WriteLine("Total check ins: " & totalcheckins)
        writer.WriteLine("Total unique users checked in: " & unique.Count)
        writer.WriteLine("Average check ins per user: " & totalcheckins / unique.Count)
        writer.WriteLine("Total morning check ins: " & totalAM)
        writer.WriteLine("Total evening check ins: " & totalPM)
        writer.WriteLine("Total training walk-ins: " & trainingguest)
        writer.WriteLine("Total class guests: " & classesguest & vbNewLine)

        writer.WriteLine("[-This Month statistics-] ")
        writer.WriteLine("Total check ins: " & monthtotal)
        writer.WriteLine("Total unique users checked in: " & monthunique.Count)
        writer.WriteLine("Average check ins per user: " & monthtotal / monthunique.Count)
        writer.WriteLine("Total morning check ins: " & monthAM)
        writer.WriteLine("Total evening check ins: " & monthPM)
        writer.WriteLine("Total training walk-ins: " & monthtrainingguest)
        writer.WriteLine("Total class guests: " & monthclassesguest & vbNewLine)

        writer.WriteLine("[-Todays statistics-] ")
        writer.WriteLine("Total check ins: " & daytotal)
        writer.WriteLine("Total unique users checked in: " & dayunique.Count)
        writer.WriteLine("Average check ins per user: " & daytotal / dayunique.Count)
        writer.WriteLine("Total morning check ins: " & dayAM)
        writer.WriteLine("Total evening check ins: " & dayPM)
        writer.WriteLine("Total training walk-ins: " & daytrainingguest)
        writer.WriteLine("Total class guests: " & dayclassesguest & vbNewLine)

        writer.WriteLine("[-Class statistics-] ")
        writer.WriteLine("Total classes: " & classtotal.Count)

        For Each x As String In classtotal
            writer.WriteLine(x)
        Next



        writer.Close()
        con.Close()

        Try
            System.IO.File.Copy(System.IO.Directory.GetCurrentDirectory & filename, My.Computer.FileSystem.SpecialDirectories.Desktop & filename)
        Catch
            MsgBox("File already exists")
        End Try