Forms Data Controls :: Unable To Retrieve New Inputs And Syntax Error

I am trying to update the database with the edited data. However, it did not manage to read the edited data from the textbox. It returned the retrieve data that I have done in the Page_Load instead. Is there any part of the code that I have written wrongly? I did manage not to use <EditItemTemplate> in my past project and manage to update the database with the same logic.

<aspx>
<!-- This DataList is created to view Personal Information -->
<asp:DataList ID="personal_dl" runat="server"> <ItemTemplate>
<table> <tr> <td style="width: 100px; text-align: left;">
<asp:Label ID="first_lbl" runat="server" ForeColor="Black" Font-Size="11px" Text="First:"></asp:Label></td> <td style="width: 350px">
<asp:TextBox ID="first_tb" runat="server" Width="341px" Font-Size="11px" Text='<%# Eval("FIRST") %>'> </asp:TextBox> </td> </tr> <tr>
<td style="width: 100px; text-align: left">
<asp:Label ID="name_lbl" runat="server" Font-Size="11px" ForeColor="Black" Text="Name:"></asp:Label> </td> <td style="width: 350px">
<asp:TextBox ID="name_tb" runat="server" Width="341px" Font-Size="11px" Text='<%# Eval("NAME") %>'> </asp:TextBox> </td> </tr> <tr> <td style="width: 100px; text-align: left;">
<asp:Label ID="id_lbl" runat="server" ForeColor="Black" Font-Size="11px" Text="ID:">
</asp:Label> </td> <td style="width: 350px">
<asp:TextBox ID="id_tb" runat="server" Width="341px" Font-Size="11px" Text='<%# Eval("ID") %>'> </asp:TextBox> </td> </tr> <tr> <td style="width: 100px; text-align: left;">
<asp:Label ID="contact_lbl" runat="server" ForeColor="Black" Font-Size="11px" Text="Contact No.:"> </asp:Label> </td> <td style="width: 350px">
<asp:TextBox ID="contact_tb" runat="server" Width="341px" Font-Size="11px" Text='<%# Eval("TELEPHONE_HP") %>'> </asp:TextBox> </td> </tr> <tr> <td style="width: 100px; text-align: left;"> <asp:Label ID="add_lbl" runat="server" ForeColor="Black" Font-Size="11px" Text="Address:"> </asp:Label> </td> <td style="width: 350px">
<asp:TextBox ID="add_tb" runat="server" Width="341px" Font-Size="11px" Text='<%# Eval("ADDRESS") %>'> </asp:TextBox> </td> </tr> </table> </ItemTemplate> </asp:DataList>
<br /> <div style="text-align: center; color: Red; width: 460px;">
<asp:Label ID="errorMsg_lbl" runat="server" />
<asp:Button ID="edit_btn" runat="server" Text="Update" />
<asp:Button ID="createBtn" runat="server" Text="Insert" /></div>
<aspx.vb>
Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
'display information in datalist
Dim login As String = Session("login")
Dim id As String = Session("id")
bindDataList(personal_dl, getPersonalContent(login, id))
'display necessary DataList
personal_dl.Visible = True
'declare fields
Dim i As Integer
Dim first_tb, name_tb, id_tb, contact_tb, add_tb As New TextBox
For i = 0 To personal_dl.Items.Count - 1
first_tb = personal_dl.Items(i).FindControl("first_tb")
name_tb = personal_dl.Items(i).FindControl("name_tb")
id_tb = personal_dl.Items(i).FindControl("id_tb")
contact_tb = personal_dl.Items(i).FindControl("contact_tb")
add_tb = personal_dl.Items(i).FindControl("add_tb")
'set fields as ReadOnly - cannot edit
first_tb.ReadOnly = False name_tb.ReadOnly = False id_tb.ReadOnly = False
contact_tb.ReadOnly = False add_tb.ReadOnly = False Next
End Sub

Protected Sub edit_btn_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles edit_btn.Click 'declare fields
Dim i As Integer Dim first_tb, name_tb, id_tb, contact_tb, add_tb As New TextBox
Dim id As String = Session("id")
For i = 0 To personal_dl.Items.Count - 1
first_tb = personal_dl.Items(i).FindControl("first_tb")
name_tb = personal_dl.Items(i).FindControl("name_tb")
id_tb = personal_dl.Items(i).FindControl("id_tb")
contact_tb = personal_dl.Items(i).FindControl("contact_tb")
add_tb = personal_dl.Items(i).FindControl("add_tb")
Next Dim myConnection As OleDbConnection = dbConnection()
Dim cmd As New OleDbCommand
Dim sqlStatement As String
Dim condition As String
condition = "UPDATE staff " + _
"SET ((FIRST= @FIRST), (NAME = @NAME), (ID= @ID), (TELEPHONE_NO = @CONTACT_NO), (ADDRESS = @ADDRESS)) " + _
"WHERE (ID= @id)" sqlStatement = condition cmd.CommandText = sqlStatement
cmd.CommandType = CommandType.Text cmd.Parameters.AddWithValue("@FIRST", first_tb)
cmd.Parameters.AddWithValue("@NAME", name_tb)
cmd.Parameters.AddWithValue("@ID", id_tb)
cmd.Parameters.AddWithValue("@TELEPHONE_NO", contact_tb)
cmd.Parameters.AddWithValue("@ADDRESS", add_tb)
cmd.Parameters.AddWithValue("@ID", id)
cmd.Connection = myConnection
Try myConnection.Open()
cmd.ExecuteNonQuery() Catch ex As Exception
Finally If myConnection.State = ConnectionState.Open Then
myConnection.Close()
End If
End Try
'display information in datalist
Dim login As String = Session("login")
bindDataList(personal_dl, getPersonalContent(login, id))
End Sub