Visual Basic.NET - OBTENER ID DE UN REGISTRO SQL

' En este ejemplo, cargo los datos en un DataTable pero la cicla es presente

        MiConexion.Open()

        Dim UnaTabla As New DataTable

        ' Connexion effective

        MiComando = MiConexion.CreateCommand()

        MiComando.CommandType = CommandType.Text

        MiComando.CommandText = "SELECT * FROM " & NombreTablaEnDB

        Dim UnosDatos As OleDbDataReader

        UnosDatos = MiComando.ExecuteReader()

        ' crear colunas en  DataTabla

        For C As Integer = 0 To UnosDatos.FieldCount - 1

            UnaTabla.Columns.Add(UnosDatos.GetName(C))

        Next

        UnaTabla.TableName = NombreTablaEnDB

        Do While UnosDatos.Read

' *******************  aqui, puedes contar la lineas

            UnaTabla.Rows.Add(UnosDatos.Item(0), UnosDatos.Item(1), UnosDatos.Item(2))

        Loop

        UnosDatos.Close()

        MisDatos.Tables.Add(UnaTabla)