Dim tbl As DataTable =  (From row in DataSet1.DataTable1 _
                                  Where CInt(row.生誕年) > 1830).AsDataView.ToTable

で型なしDataTableにすることは出来ます。

型付きのままにしたければFor Eachループは必要になると思います。

別テーブル、別Datarowを作成する必要がなければDataViewのRowFilterを使用する
のもいいかもしれません。（上記AsDataViewまでと同等)