用代码将ACCESS中所有的错误代码及描述列出来，但只能列出代码没有描述啊

按照《专家门诊——Access开发答疑200问》上的示例做了一个模块，据说是能列出Access中所有的错误代码和描述。但执行下来只生成了一个只有代码没有描述的表。请高手指教一下。

代码如下：

Function TablaErroresAccessYJet() As Boolean
Dim dbs As Database, tdf As TableDef, fld As Field
Dim rst As Recordset, IngCode As Long
Dim cadAccessErr As String
Const conappobjecterror = "应用程序定义或对象定义错误"
On Error GoTo Error_TablaErroresAccessYJet
'创建一个数据表来保存错误的代码及描述
Set dbs = CurrentDb
Set tdf = dbs.CreateTableDef("ErroresAccessYJet") '创建表
Set fld = tdf.CreateField("ErrorCode", dbLong) '创建字段
tdf.Fields.Append fld
dbs.TableDefs.Append tdf
'打开刚创建的表
Set rst = dbs.OpenRecordset("ErroresAccessYJet")
'循环取出错误代码及描述
For IngCode = 0 To 3600
On Error Resume Next
'读取错误信息
cadAccessErr = AccessError(IngCode)
DoCmd.Hourglass True
'如果不为空。
If cadAccessErr <> "" Then
If cadAccessErr <> conappobjecterror Then
'如果错误不是 应用程序定义或对象定义错误 则添加错误信息到表中
rst.AddNew
rst!errorcode = IngCode
rst!ErrorString.AppendChunk cadAccessErr
rst.Update
End If
End If

Next IngCode
'关闭数据集
rst.Close
DoCmd.Hourglass False
RefreshDatabaseWindow

MsgBox "创建错误信息表成功"
 TablaErroresAccessYJet = True
 
Exit_TablaErroresAccessYJet:
 Exit Function
 
Error_TablaErroresAccessYJet:
 MsgBox Err & ":" & Err.Description
 TablaErroresAccessYJet = False
 Resume Exit_TablaErroresAccessYJet
End Function