Dim strSql As String
strSql = "SELECT Records.ID, Records.Name, Records.Description, Records.Department, Records.ProblemDesc, Records.SolutionDesc, Records.ITName, Records.RDay, Records.RMonth, Records.RYear, Records.RTime, Records.AMPM FROM Records ORDER BY Records.RDay, Records.RMonth, Records.RYear"