datagrid 编辑更新问题?

Private Sub DataGrid2_CancelCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.CancelCommand
        Me.DataGrid2.EditItemIndex = -1
        setBind()
    End Sub    Private Sub DataGrid2_UpdateCommand(ByVal source As Object, ByVal e As System.Web.UI.WebControls.DataGridCommandEventArgs) Handles DataGrid2.UpdateCommand
        Dim conn As New SqlConnection(System.Configuration.ConfigurationSettings.AppSettings("gonglu_DSN"))
        Dim sql = "Update tblLogin set Login_name=@Login_name,Login_password=@Login_password,user_name=@user_name,user_email=@user_email where user_id=@id"
        Dim comm As New SqlCommand(sql, conn)        Dim parm1 As New SqlParameter("@Login_name", SqlDbType.NVarChar)
        Dim strLoginname As String = CType(e.Item.FindControl("Login_name"), TextBox).Text
        parm1.Value = strLoginname
        Dim parm2 As New SqlParameter("@login_password", SqlDbType.NVarChar)
        Dim strLoginpassword As String = CType(e.Item.FindControl("login_password"), TextBox).Text
        parm2.Value = strLoginpassword
        Dim parm3 As New SqlParameter("@user_name", SqlDbType.NVarChar)
        Dim strUsername As String = CType(e.Item.FindControl("user_name"), TextBox).Text
        parm3.Value = strUsername
        Dim parm4 As New SqlParameter("@user_email", SqlDbType.NVarChar)
        Dim strUseremail As String = CType(e.Item.FindControl("user_email"), TextBox).Text
        parm4.Value = strUseremail
        Dim parm5 As New SqlParameter("@id", SqlDbType.Int)
        parm5.Value = Me.DataGrid2.DataKeys(e.Item.ItemIndex)        comm.Parameters.Add(parm1)
        comm.Parameters.Add(parm2)
        comm.Parameters.Add(parm3)
        comm.Parameters.Add(parm4)
        comm.Parameters.Add(parm5)        Try
            conn.Open()
            comm.ExecuteNonQuery()
            conn.Close()
            Me.DataGrid2.EditItemIndex = -1
            setBind()
        Catch ex As Exception
            If conn.State = ConnectionState.Open Then
                conn.Close()
            End If
        End Try    End Sub错误信息:未将对象引用设置到对象的实例。 
说明: 执行当前 Web 请求期间，出现未处理的异常。请检查堆栈跟踪信息，以了解有关该错误以及代码中导致错误的出处的详细信息。 异常详细信息: System.NullReferenceException: 未将对象引用设置到对象的实例。源错误: 
行 200：
行 201：        Dim parm1 As New SqlParameter("@Login_name", SqlDbType.NVarChar)
行 202：        Dim strLoginname As String = CType(e.Item.FindControl("Login_name"), TextBox).Text '错误行
行 203：        parm1.Value = strLoginname
行 204：        Dim parm2 As New SqlParameter("@login_password", SqlDbType.NVarChar)
 
谁能帮我看一下啊,谢谢