Getting a label not defined error in an error handler (VBA)

Sub UpDate_SQL_Server_DB2()
'Variables for the connection and recordset
Dim cnt As ADODB.Connection
Dim rst As ADODB.Recordset
 
'Variables for Excel
Dim wbBook As Workbook
Dim wsSheet As Worksheet
Dim rnData As Range
Dim vaExport As Variant
Dim i As Long
 
On Error GoTo Errorhandler
 
'Force a calculation of the values in E2:E65536, which updates the pace date to = today
Worksheets("SendPastData").Range("E2:E65536").Calculate
 
Set wbBook = ThisWorkbook
Set wsSheet = wbBook.Worksheets(1)
 
With wsSheet
    'Populate the variant array with values from the range.
    Set rnData = .Range("A2:E" & .Range("E65536").End(xlUp).Row)
    vaExport = rnData.Value
End With
 
'Instantiate the ADO-objects
Set cnt = New ADODB.Connection
Set rst = New ADODB.Recordset
 
'Open the connection.
cnt.Open stCon
 
'Open the recordset.
'The first parameter refer to the target table's name in the DB.
rst.Open "tblTranData", cnt, 1, 3, adCmdTableDirect
 
'Iterate through the variant array, check if the 1st dimension's value
'(i e values from the A-column are valid and if yes then export 9 fields
'with data.
 
For i = 1 To UBound(vaExport)
    If IsDate(vaExport(i, 1)) Then
        With rst
         .AddNew
         .Fields("dtDate") = vaExport(i, 1)
         .Fields("txtRateCode") = vaExport(i, 2)
         .Fields("smlRooms") = vaExport(i, 3)
         .Fields("intRevenue") = vaExport(i, 4)
         .Fields("dtPaceDate") = vaExport(i, 5)
         .Update
        End With
    End If
Next i
 
'Close recordset and connection.
rst.Close
cnt.Close
 
'Release objects from memory.
Set rst = Nothing
Set cnt = Nothing
End Sub
 
Errorhandler:
 
    MsgBox Err.Description
    On Error Resume Next
 
    'Closing the recordset and connection.
    rst.Close
    cnt.Close
    
    'Releasing objects from memory.
    Set rst = Nothing
    Set cnt = Nothing
    
End Sub