いつもお教えを乞うばかりで恐縮です。
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
        '