Try 'some stuff Catch ex As Exception Me.LogMessage(ex.Message + ex.StackTrace, EventLogEntryType.Error) End TryNote: FYI LogMessage is a special function that puts the message in the windows event log I made...
Private Sub LogMessage(ByVal Message As String, ByVal EventType As EventLogEntryType) 'Sticks a message in the windows event 'log in the windows event log Dim WinEventLog As New EventLog ' Check if the the Event Log Exists If Not WinEventLog.SourceExists("sOliver DB2 Integration") Then WinEventLog.CreateEventSource("sOliver DB2 Integration", "sOliver DB2 Integration") ' Create Log End If WinEventLog.Source = "sOliver DB2 Integration" ' Write to the Log WinEventLog.WriteEntry("sOliver DB2 Integration", Message, EventType) 'EventLogEntryType.Information) End SubBR