استفسسار بخصوص اضافة في جدولين من شاشه

السلام عليكــم ورحمـة الله وبركاتــه ،،

اخواني سبق وطرحت الموضوع لكن ما وصلتني الفكره كامله

وانا باقي لي 20 يوم على تسليم مشروع التخرج

انا الحين عندي جدولين بقاعدة البيانات( اكسس) جدول اجازات وجودل متدربين

اضفت في جدول الاجازات حقل برقم المتدرب وربط بينه وبين رقم المتدرب في جدول المتدربين

الان اذا جيت اضيف اجازاه جديده في جدول الاجازاات هل ادخل رقم المتدرب في هذه الاجازاه يعني اكتب في كود الحفظ هذا

If TextBox1.Text = "" Then
MsgBox("الرجاء ادخال البيانات بالشكل الصحيح")
TextBox1.Focus()
Return

End If
Dim str1 As String
str1 = "select * from agazat where [no-aga] =" & TextBox1.Text & ""
Dim com As New OleDbCommand(str1, con)
Dim dataReader As OleDb.OleDbDataReader
dataReader = com.ExecuteReader()
dataReader.Read()
If dataReader.HasRows = False Then
Dim res = MsgBox("هل ترغب بالتأكيد في حفظ البيانات الجديده", MsgBoxStyle.YesNo)
If res = 6 Then
str1 = "INSERT INTO agazat ([no-aga],[date-w],day1,type1)" & _
"values (" & TextBox1.Text & "," & TextBox2.Text & "," & TextBox3.Text & ",'" & TextBox4.Text & "')"
Dim com1 As New OleDb.OleDbCommand(str1, con)
com1.ExecuteNonQuery()
End If
Else
TextBox1.Text = ""
TextBox2.Text = ""
TextBox3.Text = ""
TextBox4.Text = ""
MsgBox("هذه الاجازه محجوزه سابقاْ")

End If

رقم المتدرب

وكيف اضيف هذا الرقم وهو في جدول ثاني

يعني كيف اضيف من جدول ثاني في نفس الكود

يعني لو ابي اضيف متدرب يضيفه في هذا الحقل تماتيك

ارجو الرد اخواني

وشاكر لكم مقدما

اخوكم : ايمن