总结方法：在对应事件的出错语句上加下面的判断就行了，
    If Err.Description = "应用程序定义或对象定义错误" Then
        MsgBox "FTP功能未连接上，请重新配置！", vbCritical, "提示"
    Else
        MsgBox Err.Description, vbCritical
    End If

另个方法：用自己的错误提示替换access的默认提示例子
http://www.accessoft.com/article-show.asp?id=9082