Dim sta As New OleDb.OleDbDataAdapter("Select * from tbl_Eventlog_entries", cn)
 Dim sdt As New DataTable
 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("|")
 
                d_prm_Time.Value = Convert.ToDateTime(r.Item("TimeGenerated"))
                d_prm_EventID.Value = Convert.ToString(r.Item("EventID"))
                d_prm_SID.Value = r.Item("SID")
                d_prm_Handle.Value = 0
                d_prm_Objekt.Value = splits(2).ToString
                d_prm_IP.Value = "-"
                d_prm_Action.Value = "D"
 
                delRecId.Value = r.Item("recId")
 
                dcmd.ExecuteNonQuery()
            Catch ex As Exception
                MsgBox(ex.Message, MsgBoxStyle.Critical, "Fehler beim Transfer!" & _
                  "Betroffene RecID: " & r.Item("recid"))
                transferfehler = True
            End Try
Next