Dim i as Integer
Dim MyVar

For i = 0 to MyDataSet.Tables("NomeTabella").Rows.Count - 1
MyVar = MyDataSet.Tables("NomeTabella").Rows(i)("NomeColon na")
Next i