See Primary Key
You can put some Debug.Print statements into your code (eg. before and after a query execution) to show how much time the query took to run.
Here's a sample:
Code:
.....
20 Debug.Print Now & " - " & "Starting to process tblTelemetryEvents "
Dim intFile As Integer
Dim DelSQL As String
30 DelSQL = "DELETE From tblTelemetryEvents;"
.....
And some output from the Debug.Prints:
Code:
27-Jul-20 6:24:07 PM - Starting to process tblTelemetryEvents
27-Jul-20 6:24:07 PM - Deleted old contents of the tblTelemetryEvents
27-Jul-20 6:24:07 PM - Checking to ensure no contiguous State codes false/false|ture/true
record # 1 has desc false OK to review remaining records
27-Jul-20 6:24:07 PM ** contiguous True found at record 17014 so Delete it
27-Jul-20 6:24:07 PM - Creating the output file 'c:\users\jack\documents\BellInternetDrops...txt'
27-Jul-20 6:24:07 PM - Outages processed: 388
27-Jul-20 6:24:07 PM - Finished
Good luck.