Pegar dados de Outra TextBox.Text e inserir no Access

[anacarolina099]

Olá Queridoos,

Consigo pegar o valor de outra TextBox, más na hora de salvar os dados para o Access, os dados não vão salvam!

Código do Botão Salvar:

'Botão Salvar*********************************************

Private Sub Button3_Click(sender As Object, e As EventArgs) Handles Button3.Click

Me.ProdutosBindingSource.EndEdit()

Me.TableAdapterManager.UpdateAll(Me.Banco_de_dados1DataSet)

TextBox1.Enabled = False

TextBox1.Text = "Trancado"

Descrição_do_ProdutoTextBox.Enabled = False

PreçoTextBox.Enabled = False

Button3.Enabled = False

End Sub

Código da TextBox3.Text

TextBox3.Text

Private Sub TextBox3_TextChanged(sender As Object, e As EventArgs) Handles TextBox3.TextChanged

TextBox3.Text = Form1.TextBox1.Text

TextBox3.Enabled = False

Me.Update()

End Sub

Código da TextBox4.Text

Private Sub TextBox4_TextChanged(sender As Object, e As EventArgs) Handles TextBox4.TextChanged

TextBox4.Text = TextBox3.Text

End Sub

Segue o Print das Telas:

https://imageshack.com/f/iqCONZ0Ap

Tem como me ajudar queridoos? Obgaa.

Editado Agosto 16, 2014 por anacarolina099

[Jhonas]

veja esse exemplo

http://www.excel-easy.com/vba/examples/interactive-userform.html

abraço