Dim IdList As New List(Of String)() From {"001", "002"} Dim Query = From row In MstDtTbl Where IdList.Contains(row.Field(Of String)("ID")) Dim selTdTbl As DataTable = Query.CopyToDataTable() selTdTbl.Columns.Remove("ID")