If DataTables.Contains("IncidentReports2005") = False Then
DataTables.Load("IncidentRepor
DataTables("IncidentReports2005").LoadTop = Nothing
DataTables("IncidentReports2005").LoadOrder = "'Date of Incident' Desc"
DataTables("IncidentReports2005").LoadFilter = ""
DataTables("IncidentReports2005").Load
MainTable = Tables("IncidentReports2005")
End If