【VB】DataTable内のすべてのレコードにアクセスする

dim i as integer
for i = 0 toOrderDataset.Goods.rows.count-1
confole.writeLine(Orderdataset.goods(i).goodsID & ControlChars.tab _
& Orderdataset.goods(i).GoodsName& ControlChars.tab _
& Orderdataset.goods(i).Price)
next