Unresponsive Data Connection

Hello,


Please I need some help here in sorting a problem with collection and VB code below. Basically, I would like to display reminders from the database to the screen via messageboxes when the user clicks Button1, as long as the time and date has been reached.


But when I click on Button1 (see code below), I am not getting any output whatsoever. Do anybody know how to help?






Code Snippet
Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

If con.State = ConnectionState.Open Then con.Close()
con.Open()
cmd = New SqlCommand("SELECT REM_NOTE, REM_DATE FROM dbo.MY_CONTACTS Where REM_STATUS = 'True'", con)


Dim sdr As SqlDataReader = cmd.ExecuteReader
While sdr.HasRows = True

Dim newAlert As New Alert(Reminder_data_reader("REM_NOTE").ToString(), DateTime.Parse(Reminder_data_reader("REM_DATE").ToString()))
Me.collectionOfAlerts.Add(newAlert)


End If
End While
sdr.Close()
con.Close()

End Sub


End Class