Private Sub hozonn_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles hozonn.Click Dim dTbl As DataTable dTbl = DirectCast(auctionlist.DataSource, DataTable) dTbl.TableName = "商品リスト" dTbl.WriteXml("C:\temp\SampleData.xml") MessageBox.Show("SampleData.xmlに出力しました。", "通知") End Sub