'Reindex rebuild corrupted indexes
Public Sub Reindex(Optional ByVal Force As Boolean)
On Error GoTo Err_Handler
objServer.iLogEvent "Entering " & App.Title & ":pgDatabase.Reindex(" & Force & ")", etFullDebug

Dim szSQL As String

  dbConnect
  szSQL = "REINDEX DATABASE " & szName
  If Force Then szSQL = szSQL & " FORCE"
  objServer.ExecSQL szSQL, cnDatabase
  
  Exit Sub
Err_Handler:  objServer.iLogError Err.Number, Err.Description
End Sub
