Get Row number from access database using VB.Net 2005

Hi, I am using VB.net 2005 for the first time. I am connecting to a access database using oledb and running a sql quere to return only ever returns one record and this needs to be updated. this all works fine. its when i try to update the record i need to know the row number to update it and this is where i am stuck i cant seem to find any info on getting the current row number back.
Here is my code

Imports System.Data.OleDb
Imports System.data
Public Class FrmEditDetails
    Dim cmd As OleDbCommand
    Dim RsDetails As OleDbDataReader
    Dim SqlString As String
    Dim TempStr As String
    Dim da As New OleDb.OleDbDataAdapter(SqlString, RsSick)
    Dim ds As New DataSet()
    Dim dt As New DataTable("Details")
    Dim drCurrent As DataRow
    'Dim myCommandBuilder = New OleDb.OleDbCommandBuilder(da)
    Dim Row As Integer


    Private Sub FrmEditDetails_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
     
        RsSick.Open()

        SqlString = "SELECT * FROM Details WHERE "
        SqlString = SqlString & "Name2 = '" & ItemNo
        SqlString = SqlString & "';"

        cmd = New OleDbCommand(SqlString, RsSick)
        RsDetails = cmd.ExecuteReader

        Do While RsDetails.Read
            Text4.Text = RsDetails!Name2
            Text3.Text = RsDetails!TelNo
            Text1.Text = RsDetails!MobNo
            Text5.Text = RsDetails!Address
            Combo1.Text = RsDetails!Station
            Combo2.Text = RsDetails!Rank
            Text2.Text = RsDetails!Info

888888 Need to be able to assign rownumber to row variable here 888888888888

        Loop
        RsSick.Close()

    End Sub

    ----------------------------------------------------------------------------------------
    Private Sub CmdUpdate_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles CmdUpdate.Click
        da.Update(ds, "Details")

****** need what row number to modify here ***********

        ds.Tables("Details").Rows(Row).Item(1) = Text2.Text


Thank You

    End Sub
End Class