Public Function GetPartsPaged(Optional ByVal PartID As Integer = 0, Optional ByVal startRowIndex As Integer = 0, Optional ByVal maximumRows As Integer = 10) As IQueryable(Of Entities.Part)
        If PartID <> 0 Then
            Return GetPartByPartID(PartID)
        Else
            Return GetParts().Skip(startRowIndex).Take(maximumRows)
        End If
    End Function


    Public Function SelectCount(Optional ByVal PartID As Integer = 0) As Integer
        If PartID <> 0 Then
            Return GetPartByPartID(PartID).Count
        Else
            Return GetParts().Count()
        End If
    End Function

    <System.ComponentModel.DataObjectMethodAttribute _
        (System.ComponentModel.DataObjectMethodType.Select, True)> _
    Public Function GetParts() As IQueryable(Of Entities.Part)
        Dim ctx As JDMEntities = New JDMEntities
        Dim UserID As Integer = CType(HttpContext.Current.Session("DefaultID"), Integer)
        Return ctx.Parts.Where(Function(x) x.UserID = UserID).OrderByDescending(Function(x) x.PartID)
    End Function