tek bir clickle 1 den çok kayıt yapabilme

Slm arkadaşlar. bu forma ilk kez yazıyorum.
hatta ilk dakikam diyebilirim.

Bir sorunum var.O da şu:

Form1'in üzerinde

1 adet adodc1

1 "" datagrid1

2 "" buton

3 "" text1(0)=Adı, text2(0)=aldığı, text3(0)=fiyatı, indexleri 0 olan textler var.

textlerin datasource ve field ları adodc1 e bağlı

ekle butonu ile yeni bir kayıt açıyoruz. vebu 3 texte veri girip, text3(0) ın üzerinde enter'a basdığımızda "Load Text" ile indexleri 1er artırılan 3 adet text daha çalışma zamanı ekliyoruz. bu 3 kutuyada veri girince yine enter la bir 3 kutu daha yüklüyoruz. Yani:

Text1(0) , text1(1), text1(2)

text2(0), text2(1), text2(2)

text3(0), text3(1), text3(2) gibi altalta 3 satır veri girilmiş textlerimiz var.

Şimdi, kaydet butonuna basınca, hali hazır açık olan kayda indexleri(0) olanları kaydedip, tekrar kayıt açıp iindexi(1) olanları, bir daha kayıt açıp indexi(2) olanları kaydedecek bir click kodu yazmam lazım. Ama başaramadım.

Bu konuda yardımlarınıza ihtiyacım var. hepsine tek tek kayıt açmak yerine kaç satır text indexi olduysa o kadar kayıdı yapabilecek bir kod. Başka önerileriniz varsa onu da bilmek isterim şimdiden teşekkürler.

hangi program ile yaptığınız belirtmemişsiniz. ben vb ye göre düşünerek sadece bir fikir sunuyorum.sanırım böyle bişi istiyorsunuz fakat ben yanlış anlamışta olabilirim. genel mantık aynı gibi.

if text1(0).text<>" " and text1(1)<>" " and text1(2).text<>" " then begin
data1.recordset.addnew
..
..
end if
if text2(0).text<>" " and text2(1)<>" " and text2(2).text<>" " then begin
data1.recordset.addnew
..
..
end if
if text3(0).text<>" " and text3(1)<>" " and text3(2).text<>" " then begin
data1.recordset.addnew
..
..
end if

Özür dilerim sn. s.o.k.d.
Evet VB6.0 ile yazıyorum.
db ise MsAccess
Şuan dışarı da olduğum için henüz kodunuzu deneyemedim.
Fakat şunu da belirtmemde fayda var.
Burada text indexleri değişken olmalı, çünkü bazen kayıt etmek için tek bir satır(index), bazende 3, 4, ... satır(index) olablir.
yardımlarınız için teşekkürler.

yardım lütfen