Try
            'Aufruf des Reports
 
        Catch ex As Exception
            Dim st = New StackTrace(ex, True) : MsgBox(ex.Message & vbCrLf & _
              st.ToString)
        End Try

------------
Alle Menschen sind klug. Die einen vorher, die anderen nachher. (Voltaire)