关于捕捉错误的问题,告急

Question

各位:我的捕捉错误有时候出现了,MsgBox err.Description, vbInformation, "错误!"这里的err.Description是空的,就是没有错误,但是这个对话框还是出来,请指点这个问题如何解决, 
On Error GoTo err
 For i = 0 To Adodc1.Recordset.Fields.Count - 1
  If Adodc1.Recordset.Fields(i).Type = adInteger Or Adodc1.Recordset.Fields(i).Type = adDouble Then
   Adodc1.Recordset.Fields(i) = Val(Trim(TxtVALUE(i).Text))
  Else
   If Adodc1.Recordset.Fields(i).Type = 135 Then
     Adodc1.Recordset.Fields(i) = CDate(Trim(TxtVALUE(i).Text))
   Else
     Adodc1.Recordset.Fields(i) = TxtVALUE(i).Text
   End If
  End If
 Next i
 
 Adodc1.Recordset.Update
err:
 MsgBox err.Description, vbInformation, "错误!"
让他找到合适的错误类型,如何解决,请指点

Answer 1

我想这个问题应该是语句执行到这里执行了这句,我想如何判断真的有错误的时候才出来,谢谢