If MessageBox.Show("データセットの保存と復帰を行いますか？", "", _
MessageBoxButtons.YesNo) = DialogResult.Yes Then
    ' データセットをXML形式でファイルに保存する。
    ShainMeiboDS.WriteXml("MyDS.xml")
    MessageBox.Show("データセットを保存しました。")

    ' メモリ上のデータセットをクリアする。
    ShainMeiboDS.Clear()
    ShainMeiboDS.Dispose()
    MessageBox.Show("データセットをクリアしました。")

    ' データセットを復帰する。
    ShainMeiboDS.ReadXml("MyDS.xml")
    MessageBox.Show("データセットを保存しました。")
End If