Foros del Web - Otro error!!!!Ayuda...

Foros del Web (http://www.forosdelweb.com/)

- .NET (http://www.forosdelweb.com/f29/)

- - Otro error!!!!Ayuda... (http://www.forosdelweb.com/f29/otro-error-ayuda-598583/)

Otro error!!!!Ayuda...

TEngo este codigo...en la pagina...es el codigo de una pagina q encontre y quiero modificar....para usarlo en mis desarrolllos...que me son necesarios....quiero hacer una tabla q sus TD y TR se creen en forma sinamica....dependiendo los datos q tenga la tabla.

<script runat="server">
Sub Page_Load(obj as object, e as eventargs)
Dim objConn As New OleDbConnection (ConfigurationSettings.appSettings("sm"))
dim i as integer
dim cta as integer
dim j as integer

Dim sSQL As String
sSQL = "SELECT Count(Tabla1.aa) AS CuentaDeaa FROM Tabla1"
'response.Write(ssql)
Dim objCmd As New OleDbCommand (sSQL, objConn)
objConn.open
Dim Reader as OleDbDataReader
Reader=objCmd.ExecuteReader()
if (reader.Read()) then 'Ha encontrado registros en la BBDD, por lo cual es correcta la informacion proporcionada

cta = Reader(0)
j = 1
'agrega cabecera

for j = 0 to 1
response.Write("cabecera")
for i = 0 To (cta - 1)
Table1.Rows.Add("<tr>")
if 1 = 0 then
response.Write( i & "-")
else
response.Write( i & "-")
end if

Next i

next j
' response.Write(cta)
objConn.close()
Reader.Close()
else
objConn.close()
Reader.Close()
' label1.Text="Error: Usuario no existe o Password mal Digitada."
' Label1.visible=true
end if
End Sub
</script>

y este es el error:

Error de servidor en la aplicación '/segmante'.
--------------------------------------------------------------------------------

Error de compilación
Descripción: Error durante la compilación de un recurso requerido para dar servicio a esta solicitud. Revise los detalles de error específicos siguientes y modifique el código fuente en consecuencia.

Mensaje de error del compilador: BC30311: Un valor de tipo 'String' no se puede convertir en 'System.Web.UI.HtmlControls.HtmlTableRow'.

Error de código fuente:

Línea 53:
Línea 54:
Línea 55: Table1.Rows.Add("<tr>")

Línea 56:
Línea 57: if 1 = 0 then

Archivo de origen: C:\Inetpub\wwwroot\segmante\hh.aspx Línea: 55

Me pueden ayudar...gracias