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 :)