DataTable1から抽出したものを別のDataTableへ保存するには

いつもお教えを乞うばかりで恐縮です。
XPでVB2008Express Editionを使っています。

DataTable1のデータから別のDataTableへ保存する勉強のために次のようなテストをしましたが、
 tbl.Rows.Add(dr.id, dr.名前, dr.フリガナ, dr.生誕年, dr.所属)
の部分で各項目（dr.id, dr.名前,・・・）を記述しないで一括して保存するすることはできないものでしょうか？ご教授のほどよろしくお願いいたします。

 
        ' （1）: データ設定
        Dim dt As DataSet1.DataTable1DataTable = DataSet1.DataTable1
        dt.AddDataTable1Row("001", "勝", "カツ", "1823", "幕府")
        dt.AddDataTable1Row("002", "岩倉", "イワクラ", "1825", "公家")
        dt.AddDataTable1Row("003", "西郷", "サイゴウ", "1828", "薩摩")
        dt.AddDataTable1Row("004", "大久保", "オオクボ", "1830", "薩摩")
        dt.AddDataTable1Row("005", "木戸", "キド", "1833", "長州")
        '
        ' （2）: データ表示
        'DataGridView1.DataSource は　DataTable1BindingSource
        '
        ' （3）: DataSet1.DataTable1のデータから抽出してtblへ保存
        Dim tbl As DataTable = New DataSet1.DataTable1DataTable
        For Each dr As DataSet1.DataTable1Row In DataSet1.DataTable1
            If CType(dr.生誕年, Integer) >= 1830 Then
                tbl.Rows.Add(dr.id, dr.名前, dr.フリガナ, dr.生誕年, dr.所属)
            End If
        Next
        '  (4) : tbl の表示
        DataGridView2.DataSource = tbl
        '

データの追加という意図ならば、DataRow の ItemArray プロパティを使えるかと思います。
RowState も引き継ぐのあれば、DataTable の ImportRow メソッドを試してみてください。

魔界の仮面弁士さま

早速のご指導ありがとうございます。

tbl.ImportRow(dr)

でうまくいきました。
誠にありがとうございました。
今後ともよろしくお願いいたします。