Thank You Otis.
I had gone that route initially but didn't know how to use the IDatasource to query the data using the LinqMetaData. In other words the IDatasource was not queryable if I remember correctly.
I did get this all working with this code:
Using adapter As New DataAccessAdapter
Dim metaData As New LinqMetaData(adapter)
Dim entType = EntityType.ToString().Replace("Entity", "")
Dim entityPropertyInfo = metaData.GetType().GetProperties().FirstOrDefault(Function(p) p.Name = entType)
Dim dataSource2OfEntity2 = TryCast(entityPropertyInfo.GetValue(metaData, Nothing), IQueryable(Of IEntity2))
listItems = dataSource2OfEntity2.ToList() _
.Select(Function(e) New JtListItemsEntity With
{.ItemId = e.Fields.FirstOrDefault(Function(f) f.Name = TableIdFieldname).CurrentValue,
.ItemText = e.Fields.FirstOrDefault(Function(f) f.Name = TableDisplayMemberFieldName).CurrentValue,
.ItemValue = e.Fields.FirstOrDefault(Function(f) f.Name = TableValueMemberFieldName).CurrentValue,
.RecordDeleted = e.Fields.FirstOrDefault(Function(f) f.Name = JtListItemsFields.RecordDeleted.Name).CurrentValue,
.JtListCategories = New JtListCategoriesEntity() With {.Category = ListCategoryName}}) _
.ToList()
adapter.CloseConnection()
End Using
Thanks again!