gistfile1.bas

        Public Function GetById(ByVal id As Integer) As T Implements IDataLayer(Of T).GetById
            Dim entityType As Type = GetType(T)
            Dim entityTypeName As String = entityType.ToString
            Dim keyProperty As String = entityTypeName.Substring(entityTypeName.LastIndexOf(".") + 1) + "Id"

            Dim container = Context.MetadataWorkspace.GetEntityContainer(Context.DefaultContainerName, Metadata.Edm.DataSpace.CSpace)

            Dim entitySetName As String = (From meta In container.BaseEntitySets _
                                           Where meta.ElementType.Name = entityType.Name _
                                           Select meta.Name).First()

            Dim entitySetFullName As String = String.Format("{0}.{1}", container.Name, entitySetName)

            Dim entityKeyValues As IEnumerable(Of KeyValuePair(Of String, Object)) = _
                New KeyValuePair(Of String, Object)() {New KeyValuePair(Of String, Object)(keyProperty, id)}

            Dim key As New EntityKey(entitySetFullName, entityKeyValues)
            Return DirectCast(Context.GetObjectByKey(key), T)
        End Function