ACC2000: How to Trap Specific ODBC Error Messages

Function TestODBCErr(strTableName As String)

   On Error GoTo ODBCErrHandler

   Dim db As DAO.Database
   Dim rs As DAO.Recordset
   Set db = CurrentDb()
   Set rs = db.OpenRecordset(strTableName, dbOpenDynaset)
   With rs
      .AddNew
      ![au_id] = "999-88-7777"
      ![au_fname] = "Jane"
      ![au_lname] = "Doe"
      ' Note you do not supply data for the required field contract.
      .Update
      .Close
   End With

Exit_function:
   Exit Function

ODBCErrHandler:
   Dim errX As DAO.Error

   If Errors.Count > 1 Then
      For Each errX In DAO.Errors
         Debug.Print "ODBC Error"
         Debug.Print errX.Number
         Debug.Print errX.Description
      Next errX
   Else
      Debug.Print "VBA Error"
      Debug.Print Err.Number
      Debug.Print Err.Description
   End If
   Resume Exit_function
End Function