主题：动态加载行数

改成

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

MainTable = Tables("IncidentReports2005")