Rango de Fechas

Question

Hola buenos dias

tengo un problema necesito validar un rango de fechas de la siquiente manera:

en la base de datos guardo hora inicial   y hora Final , y que esta se pueda listar en las fechas respectivas cada una debe aparecer al lado la actividad a desarrollar

Dim Tabla As New Table
        Tabla.CssClass = "Table"
        Dim tr As TableRow
        Dim td As TableCell

 For i As Integer = 0 To 49

Dim Hora= Inicio.AddMinutes(30 * i).TimeOfDay

tr = New TableRow
            td = New TableCell
            If i > 0 Then
                ColumnaH = Today.Add(Hora).AddMinutes(-30)
                td.Controls.Add(New LiteralControl(String.Format("<strong>{0}</strong>  ", Format(ColumnaH, "hh:mm tt"))))
                td.Width = 100
            End If

Dim query = (From f In Lis Where Hora >= CType(f.HORACALINI, TimeSpan)  And  CType(f.HORACALFIN, TimeSpan) <= Hora Select f).ToList

If Lis.Count > 0 Then

Dim Control As New HyperLink
                                    Control.ID = "Datosd" & CType(f.FECHACALINI, Date).Year & CType(f.FECHACALINI_FLUJOTRABAJO, Date).Month & CType(f.FECHACALINI, Date).Day & f.FLUJOTRABAJOID
                                    Control.NavigateUrl = "../../Formularios/Actividades.aspx?Formulario=Actividades&ID=" & f.FLUJOTRABAJOID
                                    Control.Text = f.NOMACTIV & "-" & f.ASUNTO
                                    td.Controls.Add(New LiteralControl(String.Format("<strong>{0} - {1}</strong>  ", f.HORACALINI, f.HORACALFIN)))
                                    td.Controls.Add(Control)
                                    td.Controls.Add(New LiteralControl("<br>"))

else

td = New TableCell
                    td.Text = String.Empty

  End If

  Next

esta validacion esta mal 

Dim query = (From f In Lis Where Hora >= CType(f.HORACALINI, TimeSpan)  And  CType(f.HORACALFIN, TimeSpan) <=Hora Select f).ToList

he probado muchas otras maneras y no se como solucionarlo