How To capture ADO provider errors that the VBA Error object does show

Err_Execute:

   ' Notify user of any errors that result from
   ' executing the query
   If rstTemp.ActiveConnection.Errors.Count > 0 Then
      For Each Err In rstTemp.ActiveConnection.Errors
         MsgBox "Error number: " & Err.Number & vbCr & _
            Err.Description
      Next Err
   End If

   Resume Next

1 2 3 4 5 6 7 8 9 10 11 12

Err_Execute: ' Notify user of any errors that result from ' executing the query If rstTemp.ActiveConnection.Errors.Count > 0 Then For Each Err In rstTemp.ActiveConnection.Errors MsgBox "Error number: " & Err.Number & vbCr & _ Err.Description Next Err End If Resume Next