Sorry TG, I didn't get the right meaning of your question. Here below you will see the code I am using:
Dim strConnStuk As String = "Integrated Security=Yes;" & _
"Initial Catalog=CadSyS;" & _
"Data Source=localhost"
Dim sqlConnStuk As New SqlClient.SqlConnection(strConnStuk)
Dim adaptStuk As SqlClient.SqlDataAdapter
Dim adaptStukB As SqlClient.SqlDataAdapter
Dim strSQL As String = "SELECT TbStukSystemID,TbStukDatumID,TbStukIDRegCD,TbStukIDDeel1,TbStukIDDeel2 FROM TbStuk"
Dim strSQLB As String = "SELECT TbHypotheekHoofdsoomBedrag,TbHypotheekHoofdsomVermeerderdMet, TbHypotheekValuta FROM TbHypotheekGegevens"
adaptStuk = New SqlClient.SqlDataAdapter(strSQL, sqlConnStuk)
adaptStuk.Fill(CSData, "TbStuk")
adaptStukB = New SqlClient.SqlDataAdapter(strSQLB, sqlConnStuk)
adaptStukB.Fill(CSData, "TbHypotheekGegevens")
sqlConnStuk.Open()
Dim StukRow As DataRow = CSData.Tables("TbStuk").NewRow
StukRow("TbStukDatumID") = Me.ComboBox1.Tag
StukRow("TbStukIDRegCD") = Me.StukRegCD.Text
StukRow("TbStukIDDeel1") = Me.StukDeel1.Text
StukRow("TbStukIDDeel2") = Me.StukDeel2.Text
CSData.Tables("TbStuk").Rows.Add(StukRow)
Dim sqlCommBuild As New SqlClient.SqlCommandBuilder(adaptStuk)
adaptStuk.Update(CSData, "TbStuk")
adaptStukB = New SqlClient.SqlDataAdapter(strSQL, sqlConnStuk)
adaptStukB.Fill(CSData, "TbHypotheekGegevens")
Dim StukRowB As DataRow = CSData.Tables("TbHypotheekGegevens").NewRow
StukRowB("TbHypotheekSTUKID") = CSData.Relations("RelStukHypotheek")
StukRowB("TbHypotheekHoofdsoomBedrag") = Me.TextBox5.Text
StukRowB("TbHypotheekHoofdsomVermeerderdMet") = Me.TextBox6.Text
StukRowB("TbHypotheekValuta") = Me.HypotheekValuta.Tag
CSData.Tables("TbHypotheekGegevens").Rows.Add(StukRowB)
Dim sqlCommBuildB As New SqlClient.SqlCommandBuilder(adaptStukB)
adaptStukB.Update(CSData, "TbHypotheekGegevens")
Besides that I should tell you that the relationships are already done in the dataset (CSData). What can help me is a way to read the value of the last used ID in the table "TbStuk", that way I can feed the next record in the same table and also, as you should know, the children records in the table "TbHypotheekGegevens". If you know about a better way to do so, I am completly open to suggestions.
Thanks you very much for your interes, because this subject is getting me really mad.
Luis