如何解决因使用On Error Resume Next导致错误不正确的问题？

我在程序首端添加了On Error Resume Next ，以更好地处理执行时引起的错误，但在数据库访问中引出了麻烦，因为我在一个查询操作中出错了，从运行过程来看就是被掩盖的错误导致的。请问如何解决这个难题？

确实，因为使用了On Error Resume Next，即使前一步的操作（象你的查询操作）出了错，以后操作仍会被继续执行，最终导致完全错误的结果。我们的解决办法就是先检查一下错误再继续执行，具体代码见下：
 

   If Err.Number = 0 And objConnection.Errors.Count = 0 Then
    ' 如果没有错误，则继续执行数据库查询
    Set rstResults = dbData.Execute(txtSql)
    End If

顺便说一句，On Error Resume Next 要添加到你声明语言后的第一行，而不是其它位置。