This example displays the error number and other error information returned by the most recent OLE DB query.
Set objEr = Application.OLEDBErrors(1)
MsgBox "The following error occurred:" & _
objEr.Number & ", " & objEr.Native & ", " & _
objEr.ErrorString & " : " & objEr.SqlState