Dim sta As New OleDb.OleDbDataAdapter("Select * from tbl_Eventlog_entries", cn)
 Dim sdt As New DataTable
 Dim sta560 As New OleDb.OleDbDataAdapter("Select * from tbl_Eventlog_entries", _
   cn)
 Dim s_prm_time560 As New OleDb.OleDbParameter("@TimeG", _
   OleDb.OleDbType.DBDate)
 Dim s_prm_handle560 As New OleDb.OleDbParameter("@Handle", _
 OleDb.OleDbType.VarChar)
 
 sta.SelectCommand.Connection = cn
 sta.SelectCommand.CommandText = "Select * from tbl_EventLog_Entries where" & _
   "EventID=567"
 sta.Fill(sdt)
 
 sta560.SelectCommand.Connection = cn
 sta560.SelectCommand.CommandText = "Select * from tbl_EventLog_Entries where" & _
   "EventID=560 and TimeGenerated=@TimeG and strings LIKE @Handle"
 sta560.SelectCommand.Parameters.Add(s_prm_time560)
 sta560.SelectCommand.Parameters.Add(s_prm_handle560)
 
For Each r As DataRow In sdt.Rows
 
            Try
                splits = r.Item("Strings").ToString.Split("|")
                delRecId.Value = r.Item("recId")
 
                s_prm_time560.Value = r.Item("TimeGenerated")
                s_prm_handle560.Value = splits(1)
                log2box(sta560.SelectCommand.CommandText)
 
                sta560.Fill(sdt560)
 
                log2box(sdt560.Rows.Count.ToString & " 560er zu ->" & _
                  s_prm_time560.Value.ToString & " | " & s_prm_handle560.Value _
                  & " | " & delRecId.Value)
                Application.DoEvents()
 
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim" & _
                  "Transfer!" & _
                  "Betroffene RecID: " & r.Item("recid"))
                transferfehler = True
            End Try
Next