bagaimana cara membuat One to Many di VB pada form transaksi

para admin tolongin saya dunk,,,

saya mau nanya bagaimana membuat one to many pada transaksi,,,

saya dah buat

"form anggota"
"form film"

nah sekarang saya mau buat form transaksi peminjaman,,,

tapi transaksi nya bisa banyak,,,,

"Misal di form transaksi saya ada isi dari anggota, dan isi dari film,
nah isi dari film ne akan di buatkan untuk one to many, jika pelanggan menyewa lebih dari satu film,,, maka kn data filmnya akan disimpan sementara di listview,,

apakah saya harus membuat toolbox "data" lebih dari tiga,,,
(mup saya kurang mengerti dengan adodc, jadi disini saya tidak membuat module)

dalam pikiran saya c seperti ini

"Data Anggota"
"Data Film"
"Data Transaksi"
"Data Transaksi Sementara" Untuk di listview

jadi data di input dari textbox "Code Film", setelah tampil di listview, data di simpan sementara di tabel sementara pada toolbox "data", lalu di inputkan kembali
jika ingin menginput,,,, setelah selesai masuk ke "uang bayar", setelah itu
masuk ke cmdsimpan untuk penyimpanan data transaksi dan record yang ad di
tabel sementara hilang krn dah disimpan di masternya,,,

Nah yang saya bingung dengan membuat listingnya pada cmdsimpan sementara dengan cmdsimpanmaster,,,

Tolong pencerahannya yach
klo bisa berikut dengan source codenya,,,,,

sebenarnya di forum ini dah ada tentang rental film,,, cuman sourcecodenya ngk bisa di buka error melulu,,,,,

pada bagian "one" cara simpannya biasa, dan pada bagian "many" cara menyimpannya dengan menggunakan perintah perulangan
contoh:

Code:

dim kodefilm as string
dim nopinjam as string

nopinjam = "A-101"
kodefilm = "F01"

'---------menyimpan pada bagian "one"-------
koneksi.execute "INSERT INTO peminjaman (nopinjam, tanggal) VALUES('" & nopinjam & "','2010-02-28')"

'----menyimpan pada bagian "many"-------
for i = 1 to listview1.ListItems.count step 1
  'jika kode film berada pada kolom ke 1
    kodefilm = listview1.ListItems(i).text
 
  'jika kode film pada kolom ke 2 (atau seterusnya): nokolom-1
  'kodefilm = listview1.ListItems(i).subItems(nokolom)
  kodefilm = listview1.ListItems(i).subItems(1)
 
koneksi.execute "INSERT INTO Detailpinjam (nopinjam, kodefilm) VALUES" & _
                        "('" & nopinjam & "', '" & kodefilm & "'")"
next i