Como inserir dados em duas tabelas

Question

   Protected Sub Button1_Click(ByVal sender As Object, ByVal e As System.EventArgs) Handles Button1.Click

        Dim conn As New OleDb.OleDbConnection("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=|DataDirectory|\bdcliente.mdb")
        Dim sql As String = "Insert INTO tabcliente (Nome, Telefone, Celular, Endereco, Cidade, Estado) VALUES (@Nome, @Telefone, @Celular, @Endereco, @Cidade, @Estado);"

        Dim cmd As New OleDb.OleDbCommand(sql, conn)

        cmd.Parameters.AddWithValue("@Nome", TextBox1.Text)
        cmd.Parameters.AddWithValue("@Telefone", TextBox2.Text)
        cmd.Parameters.AddWithValue("@Celular", TextBox3.Text)
        cmd.Parameters.AddWithValue("@Endereco", TextBox4.Text)
        cmd.Parameters.AddWithValue("@Cidade", TextBox5.Text)
        cmd.Parameters.AddWithValue("@Estado", TextBox6.Text)


        conn.Open()

        cmd.ExecuteNonQuery()

        cmd.Dispose()


        conn.Close()

        Label1.Text = "Cadastro efetuado com sucesso!"

    End Sub

Olá galera sou iniciante, e minha dúvida é o seguinte tenho duas tabelas Tab1 (tabCliente) e a Tab2 (tabOS) gostaria de dar o insert nas duas tabelas, no codigo acima eu so estou inserindo dados na Tab1 e no formulario possui campos da Tab2, alguém pode me ajudar agradeço a atenção e aguardo um retorno!

Answer 1

não entendi sua duvida.

Não seria "duplicar" o código só que no lugar do insert ser no tabCliente ser tabOS com seus respectivos campos?

---

Uma imagem vale mais do que mil palavras, mas ocupa 3 mil vezes mais espaço em disco