il problema precedente lo avevo risolto cosi:
Dim strConn As String = "path db"

Public Sub crea_tabella()
Dim strRighe As String
Dim i As Integer
Dim x As Integer

Try
ObjConn.ConnectionString = strConn
ObjConn.Open()
ObjCmd = New SqlCommand
strSql = "select * from T_AGENDA where (autore = '" + lblmess.Text + "' or permessi = '" + lblmess.Text + "') and data = '" + Session("data") + "' order by data asc"
ObjCmd.Connection = ObjConn
ObjCmd.CommandText = strSql
ObjReader = ObjCmd.ExecuteReader(CommandBehavior.CloseConnecti on)


For x = 0 To 23
Dim objRiga As New TableRow
Dim objCella As New TableCell

If orario_array(x) < "08:00" Then
objCella.BackColor = System.Drawing.Color.FromName("#add8e6")
ElseIf orario_array(x) > "19:00" Then
objCella.BackColor = System.Drawing.Color.FromName("#add8e6")
End If

objCella.Controls.Add(New LiteralControl(orario_array(x)))
objRiga.Cells.Add(objCella)

While ObjReader.Read()
If ObjReader.Item(2) = orario_array(x) Then
If Len(ObjReader.Item(1)) > 100 Then
objCella.Controls.Add(New LiteralControl("" & Left(ObjReader.Item(1), 100) & " <A href='more.aspx>more..</A>" & ""))
Else
objCella.Controls.Add(New LiteralControl("" & ObjReader.Item(1) & ""))
End If
objRiga.Cells.Add(objCella)
table_eventi.Rows.Add(objRiga)
End If
End While

ObjReader.Close()
ObjConn.Close()

table_eventi.Rows.Add(objRiga)
ricarica_dati()
Next

Catch ex As Exception
lblmess.Text = ex.Message
Finally
ObjReader.Close()
ObjConn.Close()
End Try
End Sub

Public Sub ricarica_dati()
ObjConn.ConnectionString = strConn
ObjConn.Open()
ObjCmd = New SqlCommand
strSql = "select * from T_AGENDA where (autore = '" + lblmess.Text + "' or permessi = '" + lblmess.Text + "') and data = '" + Session("data") + "' order by data asc"
ObjCmd.Connection = ObjConn
ObjCmd.CommandText = strSql
ObjReader = ObjCmd.ExecuteReader(CommandBehavior.CloseConnecti on)
End Sub