すみません。
今朝テストをしないでお礼を記載させていただきましたが、テストの結果次のようなエラーがでました。
ご指導のほどよろしくお願いいたします。

For Each dr As DataSet1.DataTable1Row In DirectCast(DataGridView1.DataSource, DataSet1).DataTable1
のところで

型 'System.Windows.Forms.BindingSource' のオブジェクトを
型() 'vb2008Test.DataSet1' にキャストできません。
 関連するヒント 
変換元と変換先の型をチェックして、変換が有効であることを確認します。

というエラーメッセージが出ました。どこをどのようにチェックしたらいいのかとまどっています。
お助けください。
使っているソフトは　XP上で無料のダウンロードしましたVB2008です。
よろしくお願いいたします。