Sub errs()
    Dim e
    Dim con As ADODB.Connection
    Dim db As DAO.DBEngine
    Dim i%

try_DAO:
    On Error GoTo errtools2
    Set db = Application.DBEngine
    i = db.OpenDatabase(CurrentDb.Name).OpenRecordset("select n/0 from digits")( 0 )
try_ADO:
    On Error GoTo errtools1
    Set con = CurrentProject.AccessConnection
    i = con.Execute("select n/0 from digits")( 0 )

    Set con = Nothing
    Set db = Nothing
    Exit Sub
errtools1:
    Debug.Print Err.Number, Err.Description, Err.Source
    For Each e In con.Errors
        Debug.Print e.Number, e.Description, e.Source
    Next e
    Resume Next
errtools2:
    Debug.Print Err.Number, Err.Description, Err.Source
    For Each e In db.Errors
        Debug.Print e.Number, e.Description, e.Source
    Next e
    Resume Next
End Sub

  6             Переполнение  DAO.Field
  6             Переполнение  DAO.Field
- 2147467259    Поставщик данных или другая служба вернули состояние E_FAIL.          Microsoft Cursor Engine
- 2147467259    Поставщик данных или другая служба вернули состояние E_FAIL.          Microsoft Cursor Engine