sSQL = "Select EQ_EVENTS.START_DATE, "
sSQL = sSQL & "EQ_EVENTS.START_TIME, "
sSQL = sSQL & "EQ_EVENTS.EVENT_END_TIME, "
sSQL = sSQL & "EQ_EVENTS.EVENT_END_DATE, EQ_LOCATIONS.ISO9000, "
sSQL = sSQL & "EQ_LOCATIONS.DESCRIPTION as LOCDESC, "
sSQL = sSQL & "EQ_LOCATIONS.EQUIPMENT, SY_WO_STATUS.DESCRIPTION as SYDESC, "
sSQL = sSQL & "EM_EMPLOYEE.EMPLOYEE_ID, EM_EMPLOYEE.SHIFT, "
sSQL = sSQL & "WO_WORK_ORDER.ENTERED_BY, WO_WORK_ORDER.DEPARTMENT, "
sSQL = sSQL & "WO_WORK_ORDER.REQUESTOR, WO_WORK_ORDER.STATUS, "
sSQL = sSQL & "WO_WORK_ORDER.ENTERED_DATE, WO_WORK_ORDER.COMPLETED_DATE, "
sSQL = sSQL & "WO_WORK_ORDER.WO_BASE, "
sSQL = sSQL & "WO_WORK_ORDER.EQUIPMENT,WO_WORK_ORDER.DESCRIPTION as WODESC, "
sSQL = sSQL & "WO_COMMENTS.LONG_DESCRIPTION, "
sSQL = sSQL & "WO_WORK_ORDER.WO_TYPE FROM EQ_EVENTS, WO_WORK_ORDER, "
sSQL = sSQL & "WO_COMMENTS, EM_EMPLOYEE, SY_WO_STATUS, EQ_LOCATIONS "
sSQL = sSQL & "WHERE WO_WORK_ORDER.EQUIPMENT = EQ_LOCATIONS.EQUIPMENT AND "
sSQL = sSQL & "WO_WORK_ORDER.STATUS = SY_WO_STATUS.CODE AND "
sSQL = sSQL & "WO_WORK_ORDER.PLANT = SY_WO_STATUS.PLANT AND "
sSQL = sSQL & "EM_EMPLOYEE.EMPLOYEE_ID = WO_WORK_ORDER.ENTERED_BY AND "
sSQL = sSQL & "EM_EMPLOYEE.PLANT = WO_WORK_ORDER.PLANT AND "
sSQL = sSQL & "WO_WORK_ORDER.PLANT = WO_COMMENTS.PLANT AND "
sSQL = sSQL & "WO_WORK_ORDER.WO_BASE = EQ_EVENTS.WO_BASE AND "
sSQL = sSQL & "WO_WORK_ORDER.WO_BASE = WO_COMMENTS.WO_BASE AND "
sSQL = sSQL & "WO_WORK_ORDER.DEPARTMENT IN ('', '" & strDepartment & "') "
sSQL = sSQL & "AND EM_EMPLOYEE.SHIFT LIKE '%' "
sSQL = sSQL & "AND to_date(to_char(EVENT_END_DATE, 'MM/DD/YYYY') || ' ' || EVENT_END_TIME, "
sSQL = sSQL & "'MM/DD/YYYY HH24:MI') BETWEEN SYSDATE-1 And SYSDATE "
sSQL = sSQL & "order by EQ_LOCATIONS.ISO9000, "
sSQL = sSQL & "EQ_EVENTS.EVENT_END_DATE, "
sSQL = sSQL & "EQ_EVENTS.EVENT_END_TIME "
cmdSelect = New OleDbCommand( sSQL, conTab )