这个思路可以考虑一下:  
 Private Function Init_ImgList() As Boolean '初始化图片
        Dim HowImgRow As Integer = 10 '常数,每行10个小图标
        Dim CN As New SqlConnection()
        Dim CM As New SqlCommand()
        Dim DR As SqlDataReader
        Dim ImgPath As String
        Dim Number_i As Integer = 0
        Dim Number_j As Integer
        Dim Table As HtmlTable
        Dim Tr As HtmlTableRow
        Dim Td As HtmlTableCell
        Dim Img As HtmlImage        CN.ConnectionString = CnStr.ConnString
        CN.Open()
        CM.Connection = CN
        CM.CommandText = "Select * from [PhotoOfIco]"
        DR = CM.ExecuteReader        Table = New HtmlTable()
        'Table.CellPadding = 0
        'Table.CellSpacing = 0
        'Table.Border = 0
        While DR.Read()
            If IsDBNull(DR("PhotoOfIcoName")) <> True Then
                If Trim(DR("PhotoOfIcoName")) <> "" Then
                    '每一行生成HowImgRow个TD加图标
                    '====================
                    Number_j = Number_i Mod HowImgRow
                    If Number_j = 0 Then
                        '生成一个TR用于乘放HowImgRow个TD加图标
                        Tr = New HtmlTableRow()
                    End If
                    '====================                    '初始化一个图标
                    ImgPath = "../Images/MenuIco/" + DR("PhotoOfIcoName")
                    Img = New HtmlImage()
                    Img.Src = ImgPath
                    Img.Style.Item("cursor") = "hand"
                    Img.Attributes.Item("onclick") = "selectIco(this)"                    '初始化一个TD将图标放入TD
                    Td = New HtmlTableCell()
                    Td.Style.Add("border-style", "solid")
                    Td.Style.Add("border-width", "0.01cm")
                    Td.Style.Add("border-color", "d0d0d0")
                    Td.Attributes.Item("onmouseover") = "JavaScript:this.style.borderColor='red'"
                    Td.Attributes.Item("onmouseout") = "JavaScript:this.style.borderColor='#d0d0d0'"
                    Td.Controls.Add(Img)
                    Tr.Controls.Add(Td) '每生成一个TD都将其放入TR中                    Table.Controls.Add(Tr) 'TR加完TD后在放到Table中
                End If
            End If
            Number_i = Number_i + 1
        End While        ImgList.Controls.Add(Table) '将图标列表放到ImgList中        DR.Close()
        CM.Dispose()
        CN.Close()
    End Function