Fehlerbehandlung VB6 bzw. VBA

[HaSchi]

Zuviel Werbung?
-> Hier kostenlos registrieren

Hallo,
hab folgendes Problem:
Ich hab eine Verbindung zu einer ODBC-Datenbank über VB und ADO in einen Skript programmiert. Jetzt kommt es sporadisch zu Objektfehler.
Eine Fehlerroutine hab ich bereits, die aber nicht richtig funkt:

On error Goto Fehler
 
'Programmcode
 
 
'Fehlerabfrage
Exit sub
Fehler:
if err.number = 91 then
exit sub
else
'Datenbankverbindung wird geschlossen wenn offen
end if
End Sub

 

[Rainer Hönle]

Was tut denn wie? Der 91er bedeutet ja nur, dass auf ein "NULL"-Zeiger (tja so was ähnliches gibt es auch in VB) zugegriffen wird. Zuerst einmal suchen, welches Objekt hier vorzeitig gelöscht (z.B. mit SET object = Nothing) und danach noch einmal referenziert wird. Kann natürlich auch sein, dass dieses Löschen von VB aus implizit erfolgt, weil der interne Referenzzähler 0 erreicht hat.