Leggere una tabella

'Un ciclo exnovo per calcolare il valore tra i record non deleted

For i = 0 To ds.Tables("Magazzino").Rows.Count - 1
If Not ds.Tables("Magazzino").Rows(i).RowState = DataRowState.Deleted Then
Quantita' = ds.Tables("Magazzino").Rows(i).Item(2)
TextBox1.Text = Val(TextBox1.Text) + Quantita'
Valore = ds.Tables("Magazzino").Rows(i).Item(2) * ds.Tables("Magazzino").Rows(i).Item(4)
TextBox2.Text = Val(TextBox2.Text) + Valore
End If
'Movenext qui non serve perche' la posizione si incrementa con il ciclo

Next i