[Débutant] Comment Récupérer les valeurs d'un Datasets avec une boucle For each

Bonjour,
J'ai une requête SELECT qui me retourne plusieurs lignes , j'utilise les valeurs de ces lignes retournés pour effectuer un INSERT, j'ai décider d'utiliser le Dataset pour récupérer tout les lignes à la fois puis parcourir ces lignes avec un (For each) Voici le code que j'utilise :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
 
    Dim MyAdapter As SqlDataAdapter
    Dim MyDataset As DataSet
    Dim MyDatarow As DataRow
    Dim MyDatatable As DataTable
 
 
 MyDataset = New DataSet()
 
        'Instantiate  DataAdapter object
        MyAdapter = New SqlDataAdapter()
 
        'Set DataAdapter command properties
        MyAdapter.SelectCommand = cmd
 
        'Populate the Dataset
        MyAdapter.Fill(MyDataset)
 
 
        MyDatatable = MyDataset.Tables(0)
        For Each MyDatarow In MyDatatable.Rows
            Val1 = la valeur stocker dans la 1er colone du Dataset
            Val2= la la valeur stocker dans la 2eme colone du Dataset
             .....
        Next

Comment écrire la partie du ( For Each ) en code VB svp ?