Dim DV = New DataView(Ds.Tables("既存テーブル"))
DataGridView1.DataSource = DV
DV.RowFilter = "年齢 > 40"
と、3行で書いているものを
DataGridView1.DataSource = (New DataView(Ds.Tables("既存テーブル")).RowFilter = "年齢 > 40")
のように、1行で書くことできますか？