Dim tabs = dc.Mapping.GetTables().[Select](Function(o) New With { _
.TableName = o.TableName, .Type_ = o.RowType.Type, .IsEntity = o.RowType.IsEntity, _
.RowCount = dc.GetTable(o.RowType.Type).Cast(Of Object)().Count()}) _
.Where(Function(o) o.IsEntity).ToList()