Public Function autoComleteByFirstName(ByVal s As String) As HtmlTable

            Dim Table As HtmlTable = New HtmlTable
            s = System.Web.HttpUtility.HtmlEncode(s.Trim)

            If s <> "" Then

                Dim conn As New Data.SqlClient.SqlConnection(System.Configuration.ConfigurationManager.ConnectionStrings("AdventureWorksConnectionString").ToString)
                Dim command As New Data.SqlClient.SqlCommand("select top 10 FirstName from Person.Contact WHERE (FirstName like '" & s & "%') group by FirstName order by FirstName", conn)

                With Table
                    .Width = "100%"
                    .CellPadding =  0 
                    .CellSpacing =  2 
                    .Attributes.Add("class", "AjaxTable")
                End With

                Dim TableRow As HtmlTableRow
                Dim TableCell As HtmlTableCell

                Try
                    conn.Open()
                    Dim reader As Data.SqlClient.SqlDataReader = command.ExecuteReader
                    While reader.Read

                        TableRow = New HtmlTableRow

                        TableCell = New HtmlTableCell
                        With TableCell
                            .NoWrap = True
                            .InnerText = reader.Item( 0 ).ToString
                            .Attributes.Add("onmouseover", "insertextFirstName(this.innerHTML)")
                        End With
                        TableRow.Controls.Add(TableCell)
                        TableRow.Attributes.Add("class", "cellOut")
                        TableRow.Attributes.Add("onmouseover", "this.className='cellOver'")
                        TableRow.Attributes.Add("onmouseout", "this.className='cellOut'")
                        Table.Controls.Add(TableRow)

                    End While
                Catch ex As Exception

                Finally
                    If conn.State = Data.ConnectionState.Open Then conn.Close()
                End Try

            End If

            Return Table

End Function

Protected Function TableToHTMLString(ByVal Table As HtmlTable) As String

            Dim stringWrite As New System.IO.StringWriter()

            Dim htmlWrite As New HtmlTextWriter(stringWrite)

            Table.RenderControl(htmlWrite)

            Return stringWrite.ToString()

End Function