<asp:datagrid id="DG_Persons" Width="168px" HeaderStyle-HorizontalAlign="Center" Runat="server"
                            BorderColor="Black" ItemStyle-BackColor="Beige" HeaderStyle-ForeColor="#ffffff" HeaderStyle-Font-Bold="True"
                            HeaderStyle-BackColor="#ff0000" AutoGenerateColumns="False">
                            <ItemStyle BackColor="Beige"></ItemStyle>
                            <HeaderStyle Font-Bold="True" HorizontalAlign="Center" ForeColor="White" BackColor="Red"></HeaderStyle>
                            <Columns>
                                <asp:TemplateColumn HeaderText="图片">
                                    <ItemTemplate>
                                        <asp:Image id=Image3 Height="186px" ImageUrl='<%# FormatURL(DataBinder.Eval(Container.DataItem, "imgid")) %>' Width="212px" Runat="server">
                                        </asp:Image>
                                    </ItemTemplate>
                                </asp:TemplateColumn>
                            </Columns>
                        </asp:datagrid>

 Private Sub BindGrid(ByVal id)

        Dim strCnn As String = "server=.;database=master1;uid=sa;pwd="

        Dim myConnection As SqlConnection = New SqlConnection(strCnn)
        Dim dst As New DataSet
        Dim sda As SqlDataAdapter
        'Dim myCommand As SqlCommand = New SqlCommand("SELECT * FROM image1 where imageid=" & i, myConnection)
        sda = New SqlDataAdapter("SELECT * FROM KS_img where imgID=" & id, myConnection)
        'myCommand.CommandType = CommandType.Text
        dst.Clear()
        sda.Fill(dst, "aaa")

        Try

            myConnection.Open()
            row = table.NewRow
            'row.Item("照片") = myCommand.ExecuteReader(CommandBehavior.CloseConnection)
            row.Item("imgid") = dst.Tables("aaa").Rows(0).Item(0)
            row.Item("Img") = dst.Tables("aaa").Rows(0).Item(1)
            'row.Item("PersonImage") = dst.Tables("aaa").Rows(0).Item(2)
            'row.Item("PersonImageType") = dst.Tables("aaa").Rows(0).Item(3)
            table.Rows.Add(row)
            table.GetChanges()

            myConnection.Close()
            Me.DG_Persons.DataSource = table
            Me.DG_Persons.DataBind()

        Catch SQLexc As SqlException

            Response.Write("Error occured while Generating Data. Error is " & SQLexc.ToString())

        End Try

    End Sub