VB.NET的定位DataGride中行的有关问题

VB.NET的定位DataGride中行的问题
我是新手   最近做了一个小型的MIS
原来提供的修改功能是必须从DataGrid3中选取行再行修改的
因为前台提供用户修改密码
所以在显示的时候DataGrid3是隐藏的   这样就不能进行选取了
所以必须提前定位到该用户所在的行以下是我的方法但是读来读取读的都是第一行的数据请高手帮忙

  Private   Sub   newa()
              '定义
                Dim   olecn   As   New   OleDbConnection( "Provider=Microsoft.Jet.OLEDB.4.0;Data   Source=d:\data\Clients.mdb ")
                Dim   olecm   As   New   OleDbCommand( "select   *   from   StudentUser ",   olecn)
                Dim   olead   As   New   OleDbDataAdapter
                Dim   olerd   As   OleDbDataReader
                Dim   pd   As   Boolean   =   False   '定义boolean为后面错误处理使用
                Dim   i   As   Integer
                olecm   =   New   OleDbCommand( "select   *   from   StudentUser ",   olecn)
                '与数据库建立连接
                olecn.Open()
                olerd   =   olecm.ExecuteReader
                '循环判断与数据库中数据是否相同


                Do   While   olerd.Read()
                        For   i   =   0   To   olerd.FieldCount   -   1
                                If   Trim(login.zhtl.Text)   =   (olerd.Item( "Usename "))   Then
                                        Me.DataGrid3.CurrentRowIndex   =   i
                                     

                                        Exit   Sub
                                End   If
                        Next
                Loop
           


        End   Sub


------解决方案--------------------
FieldCount 是有多少列，不明白你这么循环有什么用
Do While olerd.Read()
If Trim(login.zhtl.Text) = (olerd.Item( "Usename ")) Then
Me.DataGrid3.CurrentRowIndex = i
Exit Sub
End If
i+=1
Loop