Error

Error objektet hör till ADO.Connection objektet och används för att kolla vad som gått fel i t.ex. en händelse.

Error objektet har följande properties

Property	Förklaring
Description	En förklaring i textform över vad som gått fel (på engelska). Denna är "default property"
Number	Den numeriska felkoden
Source	Det objekt som förorsakat felet
SQLState	En femsiffrig standard SQL felkod
NativeError	Serverns interna felkod
HelpFile	Eventuell Help fil som förklarar felet
HelpContext	Var i Helpfilen finns prolemet förklarat?

Har man fått ett fel i en händelse och det som parameter finns följande:
ByVal pError As ADODB.Error
kan man då använda pError.Description eller bara pError för att få se felbeskrivningen

En sak man bör beakta är att en felaktigt programrad kan ge många ADO fel.Man kan då testa dessa med på följsnde sätt:

Public Sub FelUtlösare()

   Dim Conn As ADODB.Connection
   Dim errLoop As ADODB.Error
   Dim strError As String

   On Error GoTo ErrorHandler
   
   Set Conn = New ADODB.Connection
   ' försöker öppna en tabell som inte finns
   cnn1.Open "FinnsInte"
   
   Exit Sub

ErrorHandler:

   ' Loopa genom alla eventuella fel
   ' Ock visa dessa.
   For Each errLoop In Conn.Errors
      strError = "Error #" & errLoop.Number & vbCr & _
         "   " & errLoop.Description & vbCr & _
         "   (Source: " & errLoop.Source & ")" & vbCr & _
         "   (SQL State: " & errLoop.SQLState & ")" & vbCr & _
         "   (NativeError: " & errLoop.NativeError & ")" & vbCr
      If errLoop.HelpFile = "" Then
         strError = strError & _
            "   No Help file available" & _
            vbCr & vbCr
      Else
         strError = strError & _
            "   (HelpFile: " & errLoop.HelpFile & ")" & vbCr & _
            "   (HelpContext: " & errLoop.HelpContext & ")" & _
            vbCr & vbCr
      End If
         
   Debug.Print strError
   Next
End Sub