Public Sub pruefe_senden(ByVal ds_ksmm As DataSet, ByVal adresse As String, _
  ByVal monitorlock As DataSet)
        log_anfuegen("In pruefe_senden")
        Try
            log_anfuegen("Tabelle: " & monitorlock.Tables(0).TableName.ToString)
        Catch ex As Exception
            log_anfuegen("Fehler: " & ex.Message)
        End Try
        If Not monitorlock Is Nothing AndAlso Not IsDBNull(monitorlock) Then
            log_anfuegen("hinter der If-Prüfung")
 
            '#################### HIER TRITT DER FEHLER AUF ####################
            If System.Threading.Monitor.TryEnter(monitorlock, 500) Then
 
                log_anfuegen("hinter monitor.tryenter")
                Try
                    System.Threading.Monitor.Enter(monitorlock)
                    Try
 
 
                        '#####     START DER ABARBEITUNG