魔界の仮面弁士　さま
お世話になります。

＞BindingSource を使っているのですね。であれば、

るきえさんが聞いてこられたのはこのことなんですね。

For Each dr As DataSet1.DataTable1Row In DirectCast(DirectCastDataGridView1.DataSource, BindingSource).DataSource, DataSet1).DataTable1
    msg += dr.A & "," & dr.B & "," & dr.C & "," & dr.D & "," & dr.E & vbCrLf
Next
でばっちりできました。ありがとうございます。感激しています。
また、

＞あるいは、こうかな。
 では
For i As Integer = 0 To DataGridView1.RowCount - 1
   Dim dr As DataSet1.DataTable1Row = DirectCast(DirectCast(DataGridView1.Rows(i).DataBoundItem, DataRowView).Row, DataSet1.DataTable1Row)
   msg += dr.A & dr.B & dr.C & dr.D & "," & dr.E & vbCrLf
Next
とやりますと　Dim　・・・のところで次のエラーがでました。
「New キーワードを使用してインスタンスを作成します。」
こうなるとますます困ってしまうんですが、この構文は是非使いたく思いますのでご教授のほどよろしくお願いいたします。