OLEDBErrors Property Example

This example displays the error description and SqlState property value for an OLE DB error returned by the most recent OLE DB query.

Set objEr = Application.OLEDBErrors.Item(1)
MsgBox "The following error occurred:" & _
    objEr.ErrorString & " : " & objEr.SqlState