Kan ikke få det til at fungerer

Hvor er det det er galt?

Private Sub checkDate()
        Dim valgtDato As String = CStr(Session("valgtDato"))
        Dim conn As New SqlConnection(ConfigurationManager.ConnectionStrings("bestilTidConn").ConnectionString)
        Dim cmd As New SqlCommand("SELECT resdatotid FROM tbl_reservering where resdatotid=@dato", conn)
        Dim rdr As SqlDataReader
        cmd.Parameters.Add(New SqlParameter("@dato", valgtDato))
        conn.Open()
        cmd.Connection = conn
        rdr = cmd.ExecuteReader

        Do While rdr.Read
            'DENNE SKAL TJEKKES!!!!!!!!!!!
            If valgtDato = rdr.GetValue(0) Then
                lbl_test.Text = "YEEHAW"
            Else
                lbl_test.Text = "DARN"
            End If
        Loop
        conn.Close()

    End Sub

Den tjekker fint nå valgtDato er sand, men der sker ingenting når valgtDato er falsk. Hvordan får jeg det til at fungerer?

'hellfishdk