'Reindex rebuild corrupted indexes
Public Sub Reindex()
On Error GoTo Err_Handler
objServer.iLogEvent "Entering " & App.Title & ":pgTable.Reindex(" & QUOTE & szName & QUOTE & ")", etFullDebug

Dim szSQL As String

  szSQL = "REINDEX TABLE " & szName
  objServer.ExecSQL szSQL, cnDatabase
  
  Exit Sub
Err_Handler:  objServer.iLogError Err.Number, Err.Description
End Sub

