VB.NET TextBox'ı her üyeye aktarma

Formda 3 textbox 'ım var. Makbuzno , miktar , tarih. Database'imde 2 adet bölüm var. Biri üyelerin bulunduğu alan diğeri de üye id sine göre çekilen bilgiler(Makbuzno vb)
Yapmak istediğim textboxtaki tüm verileri makbuz tablosuna kaydetmek ama tüm üyelerin idsiyle kaydetmek

Örneğin :

üyeler:

id | Ad | Soyad |
-----------------------------
5 Forum Donanım
6 Donanım Forum

makbuz:

id | Makbuzno | Miktar | Tarih
------------------------------------------
5......55555 ...... 555tl . 8.7.2015
6......66666 ...... 555tl . 8.7.2015

Demek istediğim şekildeki gibi düşünürsek textbox a girdiğim veriler direk makbuz tablosuna gidecek ama üyelerdeki üye sayısı kadar ekleyecek. Yani yukarıdaki üyeler tablosunda 2 kişi var bu yüzden makbuz tablosuna 2 farklı id ve miktar tarih aynı şekilde giriş yapılacak. Bunu nasıl yapabilirim?


Select count(*) from koop ' ile kayıt sayısını değişkene atadm ve
For b = 0 To a
kmt2.CommandText = ("select plaka from koop where id = '" & (0).ToString & "'")
tüm idye göre plakaları çektim .
INSERT INTO da select komutu iç içe kullanabilirmiyiz? :)

çok karmaşık sormuşsun açıkcası anlayamadım. Formundaki makbuzno miktar ve tarih alanlarını doldurduklarında, üyeler tablondaki her üye için bir makbuz yaratmak istiyorsun sanırım. Bunun için şöyle bir yol izleyeceksin;

üyeler tablosundan tüm üyelerinin id sini çekeceksin. Bunları bir arrayde yada listte tutabilirsin. Daha sonra bu array'e yada list'e foreach ile girersen tüm elemanlarına işlem yaparsın. foreach'e aldıktan sonra her id için makbuz tablona insert into yazacaksın.

mssql de insert into ile selecti kullanabilirsin bu arada ama yapmak istediğin şu durumda gerek yok.

Dediğiniz gibi biraz karmaşık oldu :)
demek istediğim makbuzno miktar ve tarih alanlarını doldurduklarında, üyeler tablondaki her üye için bir makbuz yaratmak istiyorum
ama her üyenin bi plaka-nosu var ve makbuz tablosunda da plaka no var. Yukaridaki örnekte buna id dedim. Yani kaydet butonuna bastığımda makbuz tablosuna üyeler tablosundaki tüm üyelerin plaka nosuyla makbuz oluşturacak.

Ek Olarak: kmt.CommandText = "SELECT Count(id) from koop"
Dim a As Integer
a = kmt.ExecuteScalar()
Dim b As Integer
Dim c As Integer
For b = 0 To a
kmt.CommandText = " SELECT plaka from koop where id=(" & b & ")"
c = kmt.ExecuteScalar

kmt.CommandText = "insert into aidat(plaka, MakbuzNo, Tarih, Miktar,Donem) VALUES (" & c & ",'" & TextBox1.Text & "','" & DateTimePicker1.Text & "','" & TextBox2.Text & "','" & TextBox3.Text & "') "
b = +1
Next

Amacım bu ama bu bile bi kere çalışıyor :)