Private Sub btnSubmit_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnSubmit.Click

    conn = New OleDbConnection("Provider = Microsoft.ace.Oledb.12.0; Data Source = C:UsersmatthewDesktopGSCSEnrollment.accdb")
    conn.Open()

    Dim cmd As OleDbCommand = New OleDbCommand("SELECT  * FROM Login WHERE UserName = '" & txtUserName.Text & "' AND [Password] LIKE '" & txtPassword.Text & "' COLLATE SQL_Latin1_General_Cp437_CS_AS_KI_WI", conn)
    Dim dr As OleDbDataReader = cmd.ExecuteReader

    Dim userFound As Boolean = False

    While dr.Read()
        userFound = True
        UserName = dr("Username").ToString
        Password = dr("Password").ToString
        LevelOfAccess = dr("LevelOfAccess").ToString
    End While

    If txtUserName.Text = "" Or txtPassword.Text = "" Then
        MessageBox.Show("Some fields missing")

    ElseIf txtPassword.Text.Length < 6 Then
        MessageBox.Show("Password should consists of 6-12 characters", "Error", MessageBoxButtons.OK)

    ElseIf userFound = True Then

        Dim st As String = "INSERT INTO AuditTrail (Username, DateOfUsage, Activity) VALUES ('" & txtUserName.Text & "', '" & Date.Now & "', '" & li & "')"
        Dim cmd1 As New OleDbCommand(st, conn)
        cmd1.ExecuteNonQuery()

        If LevelOfAccess = 1 Then
            DisplayForm(Dashboard, Main.pnlMain)
            MessageBox.Show("Administrator")

        ElseIf LevelOfAccess = 2 Then
            DisplayForm(Dashboard1, Main.pnlMain)
            MessageBox.Show("Employee")
        End If

    Else
        MsgBox("Sorry, username or password not found", MsgBoxStyle.OkOnly, "Invalid Login")
    End If

    conn.Close()
End Sub