Try
'befehl
Catch ex As Exception
MsgBox(ex.Message)
End Try

Catch ex As DatabaseExeption
MsgBox( ex.Command.CommandText & System.Environment.NewLine & ex.ToString())
End Try

Try
'suche angemeldeten benuzer
Catch ex As Exception
Msgbox("Benutzer konnte nicht gefunden werden - Fehler: xxx")
Exit Sub
End Try
Try
'Öffne Daten von dem Benutzer
Catch ex As Exception
MsgBox("Daten konnten nicht geöffnet werden - Fehler: xxx")
...
End Try
Try
'Erstelle Sicherung von den Daten
Catch ex As Exception
MsgBox...
End Try