大家的错误都怎么处理的，最好能给用户一个直接的提示：

1、网络连接之类的错误
2、磁盘或文件错误
3、数据库错误，
希望大家多提意见，多多补充Private mErrNo As Long        '錯誤號
Private mErrDesc As String        '錯誤描述'---------------磁盤錯誤哦------------------------------
Private Const ErrDeviceIO = 57
Private Const ErrDiskFull = 61
Private Const ErrBadFileNameOrNumber = 52
Private Const ErrBadFileName = 64
Private Const ErrPathDoesNotExi = 76
Private Const ErrBadFileMode = 54
Private Const ErrFileAlreadyOpen = 55
Private Const ErrInputPastEndOfFile = 62
Private Const MnErrDeviceUnavailable = 68
Private Const mnErrDiskNotReady = 71'---------------數值錯誤哦-----------------------------
Private Const ErrDivByZero = 11
Private Const ErrOverFlow = 6
Private Const ErrBadCall = 5'--------------打印機錯誤哦----------------------------
Private Const ErrPrintError = 482Public Property Get intErrNo() As Long
    intErrNo = mErrNo
End PropertyPublic Property Let intErrNo(ByVal vNewValue As Long)
    mErrNo = vNewValue
End PropertyPublic Property Get strErrDesc() As String
    Call GetDesc
    strErrDesc = mErrDesc
End PropertyPrivate Sub GetDesc()
    If mErrNo <> 0 Then
        Select Case mErrNo
            Case 1
                mErrDesc = ""
            Case 2
                mErrDesc = ""
            '-------------------磁盤錯誤---------------------
            Case MnErrDeviceUnavailable '68
               mErrDesc = "該驅動器或路徑中不存在"          '"That device appears unavailable."
            Case mnErrDiskNotReady '71
               mErrDesc = "請放入磁盤"                      '"Insert a disk in the drive and close the door."
            Case ErrDeviceIO                                '57
               mErrDesc = "內部磁片錯誤"                     '"Internal disk error."
            Case ErrDiskFull                                '61
               mErrDesc = "磁片滿,請進行清理"               '"Disk is full. Continue?"
            Case ErrBadFileName, ErrBadFileNameOrNumber
               mErrDesc = "文件名無效"                       '"That filename is illegal."
            Case ErrPathDoesNotExi
               mErrDesc = "路徑不存在"                       '"That path doesn't exist."
            Case ErrBadFileMode
               mErrDesc = "不能以該訪問方式打開你的文件"     '"Can't open your file for that type of access."
            Case ErrFileAlreadyOpen
               mErrDesc = "文件已經打開"                     ' "This file is already open."
            Case ErrInputPastEndOfFile
               mErrDesc = "文件有一個非標準的文件結尾標誌。 "
               mErrDesc = mErrDesc & "或者試圖讀取文件結尾標誌後的內容。"
            '------------------打印機錯誤----------------------
            Case ErrPrintError   '482
                mErrDesc = "打印機沒有準備好,請檢查打印機"
                
            '------------------數值錯誤哦----------------------
            Case ErrDivByZero  '11
                mErrDesc = "除數不能為0"
            Case ErrOverFlow   '6
                mErrDesc = "溢出"
            Case ErrBadCall    '5
                mErrDesc = "無效調用"
            '----------------------------------------------------
            Case Else
                mErrDesc = gGetResString("1014", 1, "執行了不合理的操作，處理取消。")
        End Select
    Else
        
    End If
End Sub