Update text of many labels 1

<%@ Page Language="VB" AutoEventWireup="false" CodeFile="ShowVanMenu.aspx.vb" Inherits="htdocs_Lawn_LawnProg_ShowVanMenu" MasterPageFile="Lawn.master"  %>

<asp:Content ContentPlaceHolderID="ContentPlaceHolder1" runat="server">
    <h3> <asp:label runat="server" id="LblDescription" /></h3>
    <br />

    <div style="width:100%">
        <asp:Table runat="server" CssClass="MainTable">
           <asp:TableRow><asp:TableCell>
            <asp:TableRow><asp:TableCell>Space</asp:TableCell></asp:TableRow>
            <asp:Label ID="lblHead1" runat="server"></asp:Label>
            <asp:Label ID="lblHead2" runat="server"></asp:Label>
            <asp:Label ID="lblHead3" runat="server"></asp:Label>
            <asp:Label ID="lblHead4" runat="server"></asp:Label>
            <asp:Label ID="lblHead5" runat="server"></asp:Label>
            <asp:Label ID="lblHead6" runat="server"></asp:Label>
            <asp:Label ID="lblHead7" runat="server"></asp:Label>
            <asp:Label ID="lblHead8" runat="server"></asp:Label>
            <asp:Label ID="lblHead9" runat="server"></asp:Label>
            <asp:Label ID="lblHead10" runat="server"></asp:Label>
            </asp:TableCell></asp:TableRow>
        </asp:Table>
        <br />
        <asp:Label runat="server" ID="label1" />
        <asp:Label runat="server" ID="label2" />
        <asp:Button runat="server" ID="sbmtButton" Text="Update User"/>
    </div>
</asp:Content>

Imports System.Data
Imports System.Configuration
Imports MySql.Data.MySqlClient

Partial Class htdocs_Lawn_lawnProg_ShowVanMenu
    Inherits System.Web.UI.Page
    Dim LawnCareConn As Odbc.OdbcConnection = New Odbc.OdbcConnection
    Dim MyDataTable As DataTable
    Dim MyMaster As Odbc.OdbcDataReader
    Dim MyMenu As Odbc.OdbcDataReader

    Protected Sub Page_Load(ByVal sender As Object, e As System.EventArgs) Handles Me.Load
        If Not IsPostBack Then
            LblDescription.text = "    List of Users"

            Dim LawnCareConn As Odbc.OdbcConnection = New Odbc.OdbcConnection

            Dim LoginCookie As HttpCookie = Request.Cookies.Get("userid")
            Dim MyReader As Odbc.OdbcDataReader
            If Not LoginCookie Is Nothing Then
                label1.Text = LoginCookie.value
            End If

            Dim UserIDCookie As HttpCookie = Request.Cookies.Get("UserID")
            Dim UserID As String = UserIDCookie.Value
            Dim Col As Integer, Row As Integer

            LblDescription.text = "    Van Menu"

            LawnCareConn.ConnectionString = ConfigurationManager.ConnectionStrings("LawnCareConn").ConnectionString
            LawnCareConn.Open()

            '  Read LAWN_Menu_Items
            Dim MenuSql As String = "select * from lawn_menu_items order by Menu_Order"
            Dim MenuCommand As Odbc.OdbcCommand = New Odbc.OdbcCommand(MenuSql, LawnCareConn)
            MyMenu = MenuCommand.ExecuteReader()
            MyMenu.Read()
            Col = 0

            If MyMenu.HasRows Then
                While MyMenu.Read
                    Select Case MyMenu.GetInt32(1)
                        Case 1 'must be a menu header
                            Col = Col + 1
                            '   Label myLabel = this.FindControl("myLabel") as Label;
                            '   myLabel.Text = "my text";

                            'Dim myLabel As FindControl("lblHead" + CStr(Col)) asLabel)
                            'Dim myLabel As Object = FindControl("lblHead1")
                            Dim myLabel As Object = (Page.FindControl("lblHead" + CStr(Col)))
                            'Dim c As Label = CType(b.Parent.FindControl("Label1"), Label)


                            myLabel.Text = MyMenu.GetString(4)

                        Case 2 'Child item - Always wanted by master user (van = 0)
                        Case 3 'Child Item - Only wanted if multi van and Master user allows it
                        Case 4 'Dev users only - UserID < 010
                    End Select

                    '                    myMenuItem = Nothing
                End While
            End If

            LawnCareConn.Close()
        End If
    End Sub

    Public Sub sbmtButton_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles sbmtButton.Click
        'LawnCareConn.ConnectionString = ConfigurationManager.ConnectionStrings("LawnCareConn").ConnectionString
        'LawnCareConn.Open()

        'Dim EditSql As String = "update lawn_user_master set Extra_Instructions=@Name " & _
        '                        "where UserID=@UserID and Van=@VanNo"
        'Dim MyCommand As Odbc.OdbcCommand = New Odbc.OdbcCommand(EditSql, LawnCareConn)

        'Response.Write("<script language='javascript'>alert('Text box is " & txtExtra.Text.ToString() & " ');</script>")


        'MyCommand.Parameters.AddWithValue("@Name", txtExtra.Text.ToString())
        'MyCommand.Parameters.AddWithValue("@Name", "This is a test. I will add a bit more!!!")
        'MyCommand.Parameters.AddWithValue("@UserID", Request.QueryString("UserID"))
        'MyCommand.Parameters.AddWithValue("@VanNo", Request.QueryString("VanNo"))
        '
        'MyCommand.ExecuteNonQuery()

        'MyCommand.Dispose()
        'LawnCareConn.Close()
        'Response.Redirect("ViewDB.aspx")

    End Sub

End Class

Dim myLabel As Object = (Page.FindControl("lblHead" + CStr(Col)))

Dim myLabel As [red][b]Label[/b][/red] = (Page.FindControl("lblHead" + Col.ToString()))
If myLabel is not nothing then
   myLabel.Text = MyMenu.GetString(4)
End If

Col = Col + 1
Dim myLabel As Label = TryCast(Master.FindControl("ContentPlaceholder1").FindControl("lblHead" + CStr(Col)), Label)
myLabel.Text = MyMenu.GetString(4)