Public Sub FillAllByPayrollAccess()
         Dim payrollAccess As Integer = 0
         '-- Retrieve the permission and test it
         If MicroFour.StrataFrame.Security.SecurityBasics.CurrentUser.GetPermission("Payroll Manager").Action = PermissionAction.Grant Then
             payrollAccess = 1
         End If
         Using cmd As New SqlCommand
             cmd.CommandText = "Select * from Users where PayrollAccess = @PayrollAccess"
             cmd.Parameters.AddWithValue("@PayrollAccess", payrollAccess).SqlDbType = SqlDbType.Int
             Me.FillDataTable(cmd)
         End Using
     End Sub