SearchReport.UpdateSearch SearchID(i), ItemSelected(i), SearchDocs(i), SearchHits(i), LastDtsearchID(i)
      End If
   Next

success:
   ' return success
   SaveSearches = True
   ListModified = False

Finally:
   On Error Resume Next
   SearchReport.CloseSearchTable
   Exit Function
catch:
   LastError.Cache
   Resume Finally
End Function