Boa tarde,
estou usando o vb 2008, por favor poderia me encaminhar o codigo via email?

Estou usando o 2008

Caro Mário,

há uma maneira muito simples de fazer isso, só preciso confirmar seu vb: 2005 ou 2008?
Postarei o código.

Abraço.

Primeiramente, muito obrigado por te me ajudado até aqui.
Venho novamente te pedir sua ajuda.
tenho 3 tabelas: EMPRESA, FUNCIONARIO, AVALIAÇÃO.
tenho 2 forms: SELECIONAEMPRESA, AVALIAÇÃO
Após eu selecionar uma EMPRESA no form SELECIONAEMPRESA (estou usando combobox), gostaria de que no form AVALIAÇÃO no campo FUNCIONARIO (COMBOBOX) fosse listado todos os funcionários da empresa selecionada no form SELECIONAEMPRESA.
TANTO A EMPRESA, FUNCIONÁRIO TEM SEUS IDS E ESTÃO RELACIONADOS
SE VC ACHAR LEGAL POSSO TE MANDAR IMAGENS DOS FORMS PARA UM MELHOR ENTENDIMENTO
GRATO

OBS ACHO QUE TEREI QUE CRIAR UMA VARIAVEL GLOBAL E NO FORM SELECIONAEMPRESA, AO CLICAR EM CONFIRMAR(BOTÃO) FECHAR O FORM E CHAMAR O ID NO FORM AVALIAÇÃO

NÃO SEI COMO FAZER ISTO

GRATO

Meu caro,

Se eu entendi a dúvido, você vai utilizar a mesma rotina de salvar, tem um exemplo no Blog. Na funçao INSERT, você vai criar na rotina uma INSERT para cada tabela, com os campos respectivos. É bem simples mesmo:

Dim cn As New OleDbConnection
Dim cmd As New OleDbCommand
cmd.Connection = cn
cmd.CommandType = CommandType.Text

Try
' Define a string de conexão
cn.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:bancosbancodados.mdb"
' Abre a conexao.
cn.ConnectionString = cn.ConnectionString
cn.Open()
'Define as propriedades do objeto COmmand
cmd.Connection = cn
' Cria um DataReader
cmd.CommandText = "insert into tabela(campotabela)values('" & txtbox.Text & "')"

cmd.ExecuteNonQuery()
cn.Close()

Catch ex As Exception
MsgBox(ex.Message())
End Try

a diferença é que você vai criar uma INSERT para cada tabela.