MonthCalendarで日付を選択して、その日の分のデータをメモ帳から読み込めるようにしました。
一回目は表示されるのですが、続けて別の日を選択すると、メモ帳の中身が表示できません。何かいい方法はないでしょうか。
コードは下記の通りです。

  Dim er As New IO.StreamReader("seiseki.txt", True)
    Dim buffer As String
    Dim items(3) As String
    Dim i As Integer

  Private Sub MonthCalendar1_DateSelected(ByVal sender As System.Object, ByVal e As System.Windows.Forms.DateRangeEventArgs) Handles MonthCalendar1.DateSelected　
Do Until er.EndOfStream
            buffer = er.ReadLine()
            items = buffer.Split(",,")
            If items(0) = Me.MonthCalendar1.SelectionRange.Start Then
                Label7.Text = items(0)
                Label6.Text = items(1) & vbLf & "ランク" & items(2)
                i += 1

            End If
        Loop
    End Sub

よろしくお願いします。

こんにちは

seiseki.txtに全ての日付のデータが行毎に同じフォーマットで並んでいるとして、
書きます。

> MonthCalendarで日付を選択して、その日の分のデータをメモ帳から読み込めるようにしました。
UPされたソースにメモ帳出てきませんけど。

> 一回目は表示されるのですが、続けて別の日を選択すると、メモ帳の中身が表示できません。何かいい方法はないでしょうか。
データがあるなら＋
>If items(0) = Me.MonthCalendar1.SelectionRange.Start Then
の条件がTRUEになるなら何某か表示されるとは思いますが。
この辺りにブレークポイントを置いて変数、プロパティの内容を見てみては？