Private WithEvents mycnn As ADODB.Connection

Private Sub mycnn_ExecuteComplete( _
  ByVal RecordsAffected As Long, _
  ByVal pError As ADODB.Error, _
  adStatus As ADODB.EventStatusEnum, _
  ByVal pCommand As ADODB.Command, _
  ByVal pRecordset As ADODB.Recordset, _
  ByVal pConnection As ADODB.Connection)
On Error Resume Next
  Debug.Print  "RecordsAffected: "  & RecordsAffected
  Debug.Print  "Error: №"  & pError.Number &  " "  & pError.Description
  Debug.Print  "Status: "  & adStatus
  Debug.Print  "Command: "  & pCommand.CommandText
End Sub