escribir el resultado de una funcion en una celda de una tabla html

[beamm]

Hola, estoy haciendo una tabla donde tengo q sacar una hora de la bd de access y escribirla en una celda de la tabla. He escrito este código en html pero no me escribe nada en la celda. ¿Por qué?

<td><%
Dim f As Integer = CInt(DropDownList1.Text)
Dim b As Date = Date.Now
Dim a As String = b.ToString
Dim i As Integer = 1
Dim hora1, hora2, horat As String
horat = "hola"

Dim cnn As OleDbConnection
Dim hora11, hora12 As OleDbDataReader
cnn = New OleDbConnection("Provider = Microsoft.Jet.OLEDB.4.0; Data Source = C:\Documents and Settings\Bea.BEA-095B12391FA\Mis documentos\Visual Studio 2005\WebSites\GestionAulas\App_Data\gestionaulas.m db")
cnn.Open()

While i = 1
hora1 = "select HoraInicio From FranHoraria "
Dim objCmd1 As New OleDbCommand(hora1, cnn)
hora11 = objCmd1.ExecuteReader()
hora2 = "select HoraFin From FranHoraria "
Dim objCmd2 As New OleDbCommand(hora2, cnn)
hora12 = objCmd2.ExecuteReader()
horat = hora11.ToString() & "-" & hora12.ToString()
i = i + 1
End While
cnn.close()
Response.Write(horat.ToString())
%></td>