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下