[Asp.net#VB]ช่วยหน่อยครับ แก้ไขข้อมูล จาก TextBox เข้า สู่ ฐานข้อมูลไม่ได้อ่ะครับ

 Protected Sub btnsave_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles btnsave.Click
        strSQL = "UPDATE Member SET " & _
  " UserID = '" & Me.lbluserid.Text & "' " & _
  " ,Username = '" & Me.txtusername.Text & "' " & _
  " ,Userpassword = '" & Me.txtpassword.Text & "' " & _
  " ,Name = '" & Me.txtname.Text & "' " & _
  " ,LastName = '" & Me.txtlastname.Text & "' " & _
  " ,Email = '" & Me.txtemail.Text & "' " & _
  " ,Address = '" & Me.txtaddress.Text & "' " & _
  " ,Type = '" & Me.ddltype.Text & "' " & _
  " WHERE Username = '" & Request.QueryString("Username") & "' "

        objCmd = New SqlCommand
        With objCmd
            .Connection = objConn
            .CommandText = strSQL
            .CommandType = CommandType.Text
        End With

        Me.Panel1.Visible = False
        Try
            objCmd.ExecuteNonQuery()
            Me.lblStatus.Text = "Record Updated"
            Me.lblStatus.Visible = True
        Catch ex As Exception
            Me.lblStatus.Text = "Record can not update"
        End Try

    End Sub

    Dim objConn As New SqlConnection
    Dim objCmd As New SqlCommand
    Dim dtReader As SqlDataReader
    Dim strConnString, strSQL As String
    Protected Sub Page_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load
        strConnString = "Data Source=DELL_BLUE-PC;Initial Catalog=Project;Integrated Security=True"
        objConn.ConnectionString = strConnString
        objConn.Open()

        If Not Page.IsPostBack() Then
            ViewData()

        End If
    End Sub

 <asp:GridView ID="GridView1" runat="server" AutoGenerateColumns="False" DataKeyNames="UserID" 
                                    DataSourceID="SqlMemberSelect">
                                    <Columns>
                                        <asp:CommandField 
                                            ShowSelectButton="True" />
                                        <asp:BoundField DataField="UserID" HeaderText="UserID" InsertVisible="False" 
                                            ReadOnly="True" SortExpression="UserID" />
                                        <asp:BoundField DataField="UserName" HeaderText="UserName" 
                                            SortExpression="UserName" />
                                        <asp:BoundField DataField="UserPassword" HeaderText="UserPassword" 
                                            SortExpression="UserPassword" />
                                        <asp:BoundField DataField="Name" HeaderText="Name" SortExpression="Name" />
                                        <asp:BoundField DataField="Lastname" HeaderText="Lastname" 
                                            SortExpression="Lastname" />
                                        <asp:BoundField DataField="Email" HeaderText="Email" SortExpression="Email" />
                                        <asp:BoundField DataField="Address" HeaderText="Address" 
                                            SortExpression="Address" />
                                        <asp:BoundField DataField="Typeid" HeaderText="Typeid" 
                                            SortExpression="Typeid" />
                                    </Columns>
                                </asp:GridView>
                                <asp:SqlDataSource ID="SqlMemberSelect" runat="server" 
                                    ConnectionString="<%$ ConnectionStrings:ProjectConnectionString %>" 
                                    SelectCommand="SELECT * FROM [Member]">
                                </asp:SqlDataSource>

strSQL = "UPDATE [Member] SET [Username]=@UserName ,[Userpassword]=@UserPassword ,[Name]=@Name ,[LastName]=@LastName ,[Email]=@Email ,[Address]=@Address ,[Type]=@Type WHERE [UserID]=@USerID"
objCmd = New SqlCommand(strSQL, objConn)
objCmd.Parameters.AddWithValue("@UserName", Me.txtusername.Text)
objCmd.Parameters.AddWithValue("@UserPassword", Me.txtpassword.Text)
objCmd.Parameters.AddWithValue("@Name", Me.txtname.Text)
objCmd.Parameters.AddWithValue("@LastName", Me.txtlastname.Text)
objCmd.Parameters.AddWithValue("@Email", Me.txtemail.Text)
objCmd.Parameters.AddWithValue("@Address", Me.txtaddress.Text)
objCmd.Parameters.AddWithValue("@Type", Me.ddltype.SelectedIndex.Text)
objCmd.Parameters.AddWithValue("@USerID", Me.lbluserid.Text)

Try
     If objconn.State = ConnectionState.Open Then
          objconn.Close()
     End If

     objconn.Open()
     objCmd.ExecuteNonQuery()
     objconn.Close()

     Me.lblStatus.Text = "Record Updated"
     Me.lblStatus.Visible = True
Catch ex As Exception
     Me.lblStatus.Text = "Record can not update. Because: " & ex.Message
End Try