如何自定义Err抛出来的异常！！！

Question

“违反了PRIMARY KEY 约束 'PK_price_fzfr_7DB2731B'。不能在对象'dbo.price_fzfr'中插入重复键.”
这是Err.description报出来的异常描述，我想用自己的语言描述它，该如何实现？ 以上是引用数据库插入重复主键报错的信息直接通过程序异常处理抛出来的信息。
现在我想用自定义描述来代替这个异常处理的抛出来的信息，请问怎么实现？

Answer 1

On Error GoTo errs
'这里写可能出错的代码errs:
If Err.Description = "违反了PRIMARY KEY 约束 'PK_price_fzfr_7DB2731B'。不能在对象'dbo.price_fzfr'中插入重复键." ThenEnd If

Answer 2

建议采用这个，如果错误语句多，可以用函数显示On Error GoTo errs 
'这里写可能出错的代码 errs: 
    msgbox fun_GetErrCont(err.number)End Ifprivate function fun_GetErrCont(byval intErrNumber as integer) as string
     select case interrnumber
         case 
             fun_GetErrCont=""
end function