C# と VB.NET の質問掲示板

VisualStudio2008/言語：VisualBasic

カレンダーを作るのはできたのですが登録ボタンを押して一時的に登録はされるものの
作ったプログラムを閉じて、また起動した際、登録したのは表示されません。
どのように記述(方法)したら登録したものを呼び出せるようになりますか？
ご回答お願いいたします。

-------------------------------------------------------------------------------------------
Public Class home

  Private Sub HizukeDisplay()
        Dim youbi As String = "日月火水木金土"
        '選択した日付(曜日)を表示
        txtHizuke.Text = MCalendar.SelectionStart & "("
        txtHizuke.Text = txtHizuke.Text & youbi.Substring(MCalendar.SelectionStart.DayOfWeek, 1)
        txtHizuke.Text = txtHizuke.Text & ")"
        ScheduleDataDisplay()

    End Sub
    Private Sub MCalendar_DateChanged(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MCalendar.DateChanged
        HizukeDisplay()    '日付表示

    End Sub

    Private Sub home_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        'TODO: このコード行はデータを 'AJcanDBsystemDataSet.tbl_jikanwari' テーブルに読み込みます。必要に応じて移動、または削除をしてください。
        SData = "?12008/12/01?2今日の予定123?3?12008/12/02?2今日の予定abc?3?12008/12/03?2今日の予定xyz?3?12008/12/04?2今日の予定***?3"
        HizukeDisplay()
    End Sub
    Private Sub ScheduleDataDisplay()
        Dim hizuke As String, pt(3) As Integer
        hizuke = "?1" & txtHizuke.Text.Substring(0, 10)    '検索する日付データ
        pt(1) = SData.IndexOf(hizuke)    '日付検索
        If pt(1) = -1 Then
            txtMemo.Text = "なし"
            Exit Sub
        End If
        pt(2) = SData.IndexOf("?2", pt(1))    'データ検索
        pt(3) = SData.IndexOf("?3", pt(2))    '終端(終わり)検索
        txtMemo.Text = SData.Substring(pt(2) + 2, pt(3) - pt(2) - 2)    '表示
    End Sub

    Private Sub TorokuButton_Click(ByVal sender As System.Object, ByVal e As System.EventArgs)       Handles TorokuButton.Click
        Dim work(2) As String
        Dim hizuke As String, pt(3) As Integer
        hizuke = "?1" & txtHizuke.Text.Substring(0, 10)    '検索する日付データ
        pt(1) = SData.IndexOf(hizuke)    '日付検索
        If pt(1) <> -1 Then
            pt(2) = SData.IndexOf("?2", pt(1))    'データ検索
            pt(3) = SData.IndexOf("?3", pt(2))    '終端(終わり)検索
            work(1) = SData.Substring(0, pt(1))   '前半部取り出し
            work(2) = SData.Substring(pt(3) + 2)  '後半部取り出し
            SData = work(1) & work(2)
        End If
        'データの追加登録
        SData = SData & hizuke
        SData = SData & "?2" & txtMemo.Text & "?3"
    End Sub
End class

-------------------------------------------------------------------------------------------