ADO ODBC Catastrophic failure

Question

Anyone come across this and determined the cause?

Here is the error handling code:

ER:
   ' Below code displays all ODBC error messages rather than just a generic message
   Msgs = "Error(s) occurred, listed below:" & vbCrLf & Err.Description
   For Each errADO In cn.Errors
      Msgs = Msgs & vbCrLf & errADO.NativeError & "=" & errADO.Description
   Next
   MsgBox Msgs, , "booGetCaseDemo"
End Function

Answer 1

Ok, we know the error, show code that generates the error...

---

Michał

Answer 2

I've since learned that we were having some ODBC software problems when this error occured, which have now been resolved. The user reports this function is now working ok. Thanks for your responses.