أضافة بيانات جدولين مختلفين

الرجاء المساعدة يا أخوان 

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        If ConnectionState.Open Then
            con.Close()
        End If


        Dim cmd As New SqlCommand("insert into tab1 (id,s_name)values(@id,@s_name)", con)

        cmd.Parameters.Clear()
        cmd.Parameters.Add("@id", SqlDbType.Int).Value = Trim(TextBox1.Text)
        cmd.Parameters.Add("@s_name", SqlDbType.NVarChar).Value = Trim(TextBox2.Text)
       



        con.Open()
        tran = con.BeginTransaction
        cmd.Transaction = tran
        cmd.ExecuteNonQuery()


        Try


            Dim cmd1 As New SqlCommand("insert into  tab2 (s_age,s_sex,id_r)values(@s_age,@s_sex,@id_r)", con)
            cmd.Parameters.Clear()

            cmd.Parameters.Add("@s_age", SqlDbType.Int).Value = Trim(TextBox3.Text)
            cmd.Parameters.Add("@s_sex", SqlDbType.NVarChar).Value = Trim(TextBox4.Text)
            cmd.Parameters.Add("@id_r", SqlDbType.Int).Value = Trim(TextBox1.Text)

            cmd1.Transaction = tran
            cmd1.ExecuteNonQuery()

            tran.Commit()
            MsgBox("تم الحفظ بقاعدة البيانات بنجاح", MsgBoxStyle.Information)



            con.Close()








        Catch ex As Exception
            MsgBox(ex.ToString)
            con.Close()
        End Try





    End Sub

اخي العزيز عدل في قاعدة البيانات وسوي علاقات  هذا هو الامر بالتوفيق

السلام عليكم أخي العزيز 

شكراً جزيلاً لك والله أفدتني كنت تعبان من القصة هذي 

أخي ماذا تعني tran

لم أفهم هذه الجملة 

أرجوك التوضيح 

    Public tran As OleDbTransaction

اسف نسيت انك تعرف هذا المتغير 

هذا يسمى ادارة العمليات الواحدة ... ابحث عنها واقراءها 

أخي العزيز شكرا على تواصلك 

عرفته بس يطلع خطأ

غير من public الى dim