Sub New(ByVal conditions As List(Of Condition))
        Call Me.New()

        Dim cmd As New MySqlCommand
        With cmd
            .CommandText = "GetCond"
            .CommandType = CommandType.StoredProcedure
            With .Parameters
                '.Add("@FromTime", MySqlDbType.Timestamp)
                '.Add("@ToTime", MySqlDbType.Timestamp)
                .Add("@a_message", MySqlDbType.String)
                .Add("@ValidKey", MySqlDbType.Bit)
                .Add("@WarningKey", MySqlDbType.Bit)
                .Add("@CriticalKey", MySqlDbType.Bit)
                .Add("@Skip", MySqlDbType.UInt64)
                .Add("@Take", MySqlDbType.UInt64)
            End With
            '.Parameters("@FromTime").Value = 0
            '.Parameters("@ToTime").Value = Now
            .Parameters("@ValidKey").Value = Filter.ShowValid
            .Parameters("@WarningKey").Value = Filter.ShowWarning
            .Parameters("@CriticalKey").Value = Filter.ShowCritical
            .Parameters("@Skip").Value = Pager.GetRowRange.Skip
            .Parameters("@Take").Value = Pager.GetRowRange.Take
            .Parameters("@a_message").Direction = ParameterDirection.Output
        End With
        Call Load(cmd)
    End Sub

Private Sub Load(ByVal command As MySqlCommand)
        Dim CommandText As String
        Dim delimiter As Boolean = False
        Dim param(command.Parameters.Count - 1) As MySqlParameter
        Select Case command.CommandType
            Case CommandType.StoredProcedure
                CommandText = String.Concat("CALL ", command.CommandText)
                CommandText = String.Concat("CALL ", command.CommandText, "(")
                For Each p As MySqlParameter In command.Parameters
                    CommandText = String.Concat(CommandText, IIf(delimiter, ",", String.Empty), p.ParameterName)
                    delimiter = True
                Next
                CommandText = String.Concat(CommandText, ");")
                command.Parameters.CopyTo(param, 0)
            Case CommandType.TableDirect
                CommandText = String.Concat("SELECT * FROM ", command.CommandText, ";")
            Case Else
                CommandText = command.CommandText
        End Select
        MySqlHelper.ExecuteNonQuery(connectionstring, CommandText, param)
        Using reader As MySqlDataReader = MySqlHelper.ExecuteReader(connectionstring, CommandText, param)
            Dim a As ULong = param("@Affected").Value
            While reader.Read
                _data.Add(New Measurement(reader.Item("ID"), reader.Item("TimeStamp"), reader.Item("Condition")))
            End While
        End Using
        Pager.Rows = _data.Count
    End Sub