هل من حل للحفظ في ثلاث جداول مرتبطة؟

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

غداً موعد تسليم مشروعي و لم أتمكن إلى اللحظة من حل مشكلة الحفظ إلى جداول ثلاث مرتبطة!

حاولت كثيراً و لكن دون جدوى!

أرجو من الله تعالى أن يعينني و يرزقني من يعينني منكم.

سأضع الكود و الذي لم ينجح معي لتلقوا عليه نظرة

SqlSelectCat = "Select Cat_ID From Categories Where Cat = '" & ComboBox1.SelectedItem & "'"
		Cmd1 = New SqlCommand(SqlSelectCat, Conn)
		OpenConn()
		Result1 = CType(Cmd1.ExecuteScalar, String)
		DA1 = New SqlDataAdapter(Cmd1)
		DS.Clear()
		DA1.Fill(DS, "Categories")
		'***********************************************
		'
		'***********************************************
		SqlSelectAuthors = "Select Author_ID From Authors Where Author = '" & TextBox2.Text & "'"
		Cmd2 = New SqlCommand(SqlSelectAuthors, Conn)
		Result2 = CType(Cmd2.ExecuteScalar, String)
		DA2 = New SqlDataAdapter(Cmd2)
		DS.Clear()
		DA2.Fill(DS, "Authors")
		'***********************************************
		'
		'***********************************************
		If Result1 = 0 Then
			SqlInsertCat = "Insert Into Categories(Cat) Values('" & ComboBox1.SelectedText & "')"
			Cmd1 = New SqlCommand(SqlInsertCat, Conn)
			Cmd1.ExecuteNonQuery()
			DA1 = New SqlDataAdapter(Cmd1)
			DS.Clear()
			DA1.Fill(DS, "Categories")
			DA1.Update(DS, "Categories")
			Result1 = CType(Cmd1.ExecuteScalar, String)
			DA1 = New SqlDataAdapter(Cmd1)
			DS.Clear()
			DA1.Fill(DS, "Categories")
			SqlInsertBooks = "Insert Into Books(Book_Title, Author_ID, Publisher, Cat_ID, Type, Parts, Volums, Copies, Note) Values('" & TextBox1.Text & "', '" & Result2 & "', '" & TextBox3.Text & "', '" & Result1 & "', '" & ComboBox2.SelectedItem & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
			Cmd3 = New SqlCommand(SqlInsertBooks, Conn)
			Cmd3.ExecuteNonQuery()
			DA3 = New SqlDataAdapter(Cmd3)
			DS.Clear()
			DS.Tables.Add("Books")
			DA3.Fill(DS, "books")
			DA3.Update(DS, "Books")
			MessageBox.Show("لقد قمت بإضافة كتاب جديد بنجاح.", "إضافة كتاب", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
			'*******************************************
			'
			'*******************************************
		ElseIf Result2 = 0 Then
			SqlInsertAuthors = "Insert Into Authors(Author) Values('" & TextBox2.Text & "')"
			Cmd2 = New SqlCommand(SqlInsertAuthors, Conn)
			Cmd2.ExecuteNonQuery()
			DA1 = New SqlDataAdapter(Cmd2)
			DS.Clear()
			'DS.Tables.Add("Authors")
			DA1.Fill(DS, "Authors")
			DA1.Update(DS, "Authors")
			Result2 = CType(Cmd2.ExecuteScalar, String)
			DA1 = New SqlDataAdapter(Cmd2)
			DS.Clear()
			DA1.Fill(DS, "Categories")
			SqlInsertBooks = "Insert Into Books(Book_Title, Author_ID, Publisher, Cat_ID, Type, Parts, Volums, Copies, Note) Values('" & TextBox1.Text & "', '" & Result2 & "', '" & TextBox3.Text & "', '" & Result1 & "', '" & ComboBox2.SelectedItem & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
			Cmd3 = New SqlCommand(SqlInsertBooks, Conn)
			Cmd3.ExecuteNonQuery()
			DA3 = New SqlDataAdapter(Cmd3)
			DS.Clear()
			DA3.Fill(DS, "books")
			DA3.Update(DS, "Books")
			MessageBox.Show("لقد قمت بإضافة كتاب جديد بنجاح.", "إضافة كتاب", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)
			'*******************************************
			'
			'*******************************************
		ElseIf Result1 > 0 And Result2 > 0 Then
			SqlInsertBooks = "Insert Into Books(Book_Title, Author_ID, Publisher, Cat_ID, Type, Parts, Volums, Copies, Note) Values('" & TextBox1.Text & "', '" & Result2 & "', '" & TextBox3.Text & "', '" & Result1 & "', '" & ComboBox2.SelectedItem & "', '" & TextBox4.Text & "', '" & TextBox5.Text & "', '" & TextBox6.Text & "', '" & TextBox7.Text & "')"
			Cmd3 = New SqlCommand(SqlInsertBooks, Conn)
			Cmd3.ExecuteNonQuery()
			DA3 = New SqlDataAdapter(Cmd3)
			DS.Clear()
			DS.Tables.Add("Books")
			DA3.Fill(DS, "Books")
			DA3.Update(DS, "Books")
			MessageBox.Show("لقد قمت بإضافة كتاب جديد بنجاح.", "إضافة كتاب", MessageBoxButtons.OK, MessageBoxIcon.Information, MessageBoxDefaultButton.Button1, MessageBoxOptions.RtlReading)

	   End If