Попробуйте поставить Option Infer On
.Это позволит использовать вывод типов, который вы, похоже, делаете здесь:
Dim test =
РЕДАКТИРОВАТЬ
Также вам необходимо использовать анонимные типы: , поэтому можно сравнить tbl_container и tbl_containerHIST:
Dim test = (From container In dc.GetTable(Of tbl_container)()
Where container.pkContainerID = iPkContainerID
Select New With{ ... }).Union( _
From containerHist In dc.GetTable(Of tbl_containerHIST)()
Where containerHist.pkContainerID = iPkContainerID
Select New With{ ... })