อยากทราบใครมี cod บันทึก textbox ลง datagridview ได้บ้างคะ

    Sub myGridView_RowCommand(source As Object, e As GridViewCommandEventArgs)
		If e.CommandName = "Add" Then
            '*** CustomerID ***'
            Dim txtCustomerID As TextBox = CType(myGridView.FooterRow.FindControl("txtAddCustomerID"), TextBox)
            '*** Email ***'
            Dim txtName As TextBox = CType(myGridView.FooterRow.FindControl("txtAddName"), TextBox)
            '*** Name ***'
            Dim txtEmail As TextBox = CType(myGridView.FooterRow.FindControl("txtAddEmail"), TextBox)
            '*** CountryCode ***'
            Dim txtCountryCode As TextBox = CType(myGridView.FooterRow.FindControl("txtAddCountryCode"), TextBox)
            '*** Budget ***'
            Dim txtBudget As TextBox = CType(myGridView.FooterRow.FindControl("txtAddBudget"), TextBox)
            '*** Used ***'
            Dim txtUsed As TextBox = CType(myGridView.FooterRow.FindControl("txtAddUsed"), TextBox)

            strSQL = "INSERT INTO customer (CustomerID,Name,Email,CountryCode,Budget,Used) " & _
            " VALUES ('" & txtCustomerID.Text & "','" & txtName.Text & "','" & txtEmail.Text & "' " & _
            " ,'" & txtCountryCode.Text & "','" & txtBudget.Text & "','" & txtUsed.Text & "') "
            objCmd = New OleDbCommand(strSQL, objConn)
            objCmd.ExecuteNonQuery()

            BindData()
        End If
    End Sub

		'*** CustomerID ***'
		Dim hplCustomerID As Hyperlink = CType(e.Row.FindControl("hplCustomerID"),Hyperlink)
		IF Not IsNothing(hplCustomerID) Then
			hplCustomerID.Text = e.Row.DataItem("CustomerID")
			hplCustomerID.NavigateUrl  = "Page.aspx?CustomerID=" & e.Row.DataItem("CustomerID")
		End IF

<%@ Page Language="VB" %>
<%@ import Namespace="System.Data" %>
<%@ import Namespace="System.Data.OleDb" %>
<script runat="server">

    Dim objConn As OleDbConnection
     Dim objCmd As OleDbCommand

     Sub Page_Load(sender As Object, e As EventArgs)
            Dim strConnString As String
            strConnString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& _
			Server.MapPath("database/mydatabase.mdb")&";"
            objConn = New OleDbConnection(strConnString)
            objConn.Open()

            IF Not Page.IsPostBack() Then
                BindData()
            End IF
     End Sub

    Sub BindData()
           Dim strSQL As String
           strSQL = "SELECT * FROM customer"

           Dim dtReader As OleDbDataReader
           objCmd = New OleDbCommand(strSQL, objConn)
           dtReader = objCmd.ExecuteReader()

           '*** BindData to GridView ***'
           myGridView.DataSource = dtReader
           myGridView.DataBind()

           dtReader.Close()
           dtReader = Nothing

    End Sub

    Sub Page_UnLoad()
           objConn.Close()
           objConn = Nothing
    End Sub

	Private Sub myGridView_RowDataBound(sender As Object, e As GridViewRowEventArgs) 
		'*** CustomerID ***'
		Dim hplCustomerID As Hyperlink = CType(e.Row.FindControl("hplCustomerID"),Hyperlink)
		IF Not IsNothing(hplCustomerID) Then
			hplCustomerID.Text = e.Row.DataItem("CustomerID")
			hplCustomerID.NavigateUrl  = "Page.aspx?CustomerID=" & e.Row.DataItem("CustomerID")
		End IF

		'*** Email ***'
		Dim lblName As Label = CType(e.Row.FindControl("lblName"),Label)
		IF Not IsNothing(lblName) Then
			lblName.Text = e.Row.DataItem("Name")
		End IF

		'*** Name ***'
		Dim lblEmail As Label = CType(e.Row.FindControl("lblEmail"),Label)
		IF Not IsNothing(lblEmail) Then
			lblEmail.Text = e.Row.DataItem("Email")
		End IF

		'*** CountryCode ***'
		Dim lblCountryCode As Label = CType(e.Row.FindControl("lblCountryCode"),Label)
		IF Not IsNothing(lblCountryCode) Then
			lblCountryCode.Text = e.Row.DataItem("CountryCode")
		End IF

		'*** Budget ***'
		Dim lblBudget As Label = CType(e.Row.FindControl("lblBudget"),Label)
		IF Not IsNothing(lblBudget) Then
			lblBudget.Text = FormatNumber(e.Row.DataItem("Budget"),2)
		End IF

		'*** Used ***'
		Dim lblUsed As Label = CType(e.Row.FindControl("lblUsed"),Label)
		IF Not IsNothing(lblUsed) Then
			lblUsed.Text = FormatNumber(e.Row.DataItem("Used"),2)
		End IF
	End Sub

</script>
<html>
<head>
    <title>ThaiCreate.Com ASP.NET - GridView</title>
</head>
<body>
<form id="form1" runat="server">
<asp:GridView id="myGridView" runat="server" AutoGenerateColumns="False" onRowDataBound="myGridView_RowDataBound">

	<Columns>

	<asp:TemplateField HeaderText="Select">
		<ItemTemplate>
			<asp:HyperLink id="hplCustomerID" runat="server"></asp:HyperLink>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="CustomerID">
		<ItemTemplate>
			<asp:Label id="lblCustomerID" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="Name">
		<ItemTemplate>
			<asp:Label id="lblName" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="Email">
		<ItemTemplate>
			<asp:Label id="lblEmail" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="CountryCode">
		<ItemTemplate>
			<asp:Label id="lblCountryCode" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="Budget">
		<ItemTemplate>
			<asp:Label id="lblBudget" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	<asp:TemplateField HeaderText="Used">
		<ItemTemplate>
			<asp:Label id="lblUsed" runat="server"></asp:Label>
		</ItemTemplate>
	</asp:TemplateField>

	</Columns>

</asp:GridView>
</form>
</body>
</html>