Вам придется использовать анонимный тип:
Dim contacts = From c In My.Context.Contacts _
Select New With { _
.ContactId = c.ContactId, _
.Name = c.Name
}
и затем скопировать данные в список контактов:
For Each contact In contacts
Dim c As New Contact With { .ContactId = c.ContactId, .Name = c.Name}
//Add to list
Next
Ваш синтаксис, как говорится в сообщении об ошибке, не поддерживается.