VB中没法对数据库第一行数据进行修改

VB中无法对数据库第一行数据进行修改
我用的是读取textbox.text的方法对所指定数据进行修改
部分代码如下
 Dim i%
        For i = 0 To Me.学生信息管理系统DataSet.RewardsPunishment.Rows.Count - 1
            If Trim(Me.学生信息管理系统DataSet.RewardsPunishment.Rows(i).Item(2)) = Trim(Me.TextBox1.Text) Then   /说明指定学生的学号
                Me.学生信息管理系统DataSet.RewardsPunishment.Rows(i).Item(0) = Trim(Me.SrewardsTextBox.Text)
                Me.学生信息管理系统DataSet.RewardsPunishment.Rows(i).Item(5) = Trim(Me.DropOutTextBox.Text)

                Me.学生信息管理系统DataSet.RewardsPunishment.Rows(i).Item(1) = Trim(Me.SpunishmentTextBox.Text)
/对各信息进行修改
            End If

        Next i
        Me.RewardsPunishmentTableAdapter.Update(Me.学生信息管理系统DataSet.RewardsPunishment)
        





这个程序在执行后发现只有第一行数据按修改键后毫无反应，其余行数据都可正常修改，找了半天也找不到原因，请教各位
[解决办法]
你看看你第一行数据是不是没有进入这里
If Trim(Me.学生信息管理系统DataSet.RewardsPunishment.Rows(i).Item(2)) = Trim(Me.TextBox1.Text) Then

debug下