Dim Msg = From m In db2.Blog_Messages _
Group Join c In db2.Blog_Comments On m.MessageID Equals c.MessageID Into Comments = Group _
Join u In db2.users On m.userID Equals u.userid _
Select New With {
m.Title, m.Message, m.MessageID,
.CommentCount = Comments.Count(),
.date1 = m.AddedDate.ToShortDateString,
.Time = m.AddedDate.ToShortTimeString(),
.fullName = u.fname & " " & u.lname
}
это то, что я придумал ..
спасибо,
Крис