VBA/Excel/Access/Word/Access/ADO Error

Using the VBA Err Object and ADO Errors Collection

   <source lang="vb">

Sub DBError()

  Dim conn As New ADODB.Connection
  Dim errADO As ADODB.Error
  On Error GoTo CheckErrors
  conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;" & "Data Source=C:\my.mdb"

CheckErrors:

  Debug.Print "VBA error number: " & Err.Number & vbCrLf & " (" & Err.Description & ")"
  Debug.Print "Listed below is information " & "regarding this error " & vbCrLf & "contained in the ADO Errors collection."
  For Each errADO In conn.Errors
     Debug.Print vbTab & "Error Number: " & errADO.Number
     Debug.Print vbTab & "Error Description: " & errADO.Description
     Debug.Print vbTab & "Jet Error Number: " & errADO.SQLState
     Debug.Print vbTab & "Native Error Number: " & errADO.NativeError
     Debug.Print vbTab & "Source: " & errADO.Source
     Debug.Print vbTab & "Help Context: " & errADO.HelpContext
     Debug.Print vbTab & "Help File: " & errADO.HelpFile
  Next

End Sub

</source>