Dim strHtml As String
Dim cel(2) As TableCell
Dim r As New TableRow()
strHtml = "<input type=radio name=""RadioSel"" value=""" & Trim(.Item("CarID")) & """>"
cel(0) = New TableCell()
cel(0).Controls.Add(New LiteralControl(strHtml))
cel(0) .Wrap = False
r.Cells.AddRange(cel(0))
.............
Table1.Rows.Add(r)