'Satırları oluştur If ds.Rows.Count <> 0 Then satir = dt.NewRow satir("Ürün No") = ald satir("Ürün Adı") = ds.Rows(0)(0) satir("Ürün Adet") = Val(txtAdet.Text) satir("Adet") = -----------------------------burada bir tablo daha var fakat bir türlü ne yazacagım karsınına anlayamadım o veriyi...