[Resolvido]Como executar várias instruções SQL dentro de apenas um comando

Olá pessoal!
Meu problema é o seguinte tenho que executar dois insert into em tabelas diferentes e um detete simultâneos, mas gostaria de fazer tudo de uma vez. Tem cmo?
Agradeço a atenção

Boa tarde, suel, bem-vindo ao fórum
Esta dúvida é sequência da outra colocada por si? se sim, devia ter dado continuidade ao outro tema.
Quanto à dúvida, coloque as duas instruções no mesmo módulo
Currentdb.execute "instruçãoSQL"
Currentdb.execute "instruçãoSQL"
...

tenho um formulário que tem vários textbox e caixa de combinaçao, preciso consultar uma entrada no txtoficio e mostrar todos os outros dados. Mas alguns dados não estão sendo apresentados e no caso de um dos campos da o seguinte erro: erro em tempo de execução '3265' Item não encontrado nesta coleção. Há dias tento solucionar, já entrei em alguns tópico aqui do fórum, mas não consegui. Peço que me auxiliem.
Grato
Segue o código do botão consultar:
Private Sub cmdConsultar_Click()
'consulta pelo número do oficio e mostra os dados
If txtoficio <> "" Then
Comando = "SELECT * FROM tb_execucao WHERE id_oficio = '" & txtoficio & "'"
Valida_selecao
If dataset.RecordCount <> 0 Then
txtoficio = dataset("id_oficio")
txtcontrato = dataset("contrato")
txtss = dataset("ss") ' não mostra no form
txtdtss = dataset("dtSS")
txtServ = dataset("servico") ' não mostra no form
txtmutuario = dataset("mutuario")
txtCartorio = dataset("cartorio")
txtCidade = dataset("CidCartorio")
txtUF = dataset("UFcartorio")
txtValServ = dataset(valServico) 'item não encontrado nesta coleção
txtDtServ = dataset("dtPgServ") ' não mostra no form
txtValEmol = (valEmol) ' não mostra no form
txtDtEmol = ("dtPgEmol") ' não mostra no form
txtAteste = (ateste) ' não mostra no form
txtOfCanc = ("ofCanc") ' não mostra no form
txtDtExp = ("dtOfCanc") ' não mostra no form
txtDtDev = ("dtDevCanc") ' não mostra no form
txtDtInt = ("dtIntimacao") ' não mostra no form
ccbObs1 = ("obs1") ' não mostra no form
ccbObs2 = ("obs2") ' não mostra no form
cmdExcluir.Enabled = True
cmdSalvar.Enabled = True
Else
MsgBox ("Registro não encontrado"), vbInformation + vbOKOnly, "Nenhum Registro"
Limpar
txtoficio.SetFocus
End If
Else
MsgBox ("Preencha o nº do ofício para fazer a busca"), vbInformation + vbOKOnly, "Código requerido"
txtoficio.SetFocus
End If
End Sub

Boa tarde,
É a mesma dúvida?
Quanto ao código agora apresentado, não dá para avaliar sem ter a bd. No entanto, parece-me estar a utilizar variáveis quando quereria utilizar nomes de campos (ateste, por ex.)

Boa tarde!
Resolvi a dúvida anterior. Muito obrigado pela ajuda
Mas surgiu um novo problema. Eu digito um valor e clico em consultar, até ai tudo bem acho os dados altero e clico em Salvar, mas nessa parte da uma mensagem de "Estouro".
Percebi que a string que passo para o banco ao clicar em salvar é a mesma utilizada para consultar, ou seja, faz outro SELECT em vez de um UPDATE. Como soluciono este problema.
Agradeço a atenção

O que é Comando?
O que é Valida_selecao?
O que é dataset?
O que é valServico?
O que é valEmol?
O que é ateste?
Onde fecha dataset?

Prezado Alexandre,

valServico, valEmol, ateste são nome de campos da minha tabela

Public Comando As String ' variável para comandos SQL
Public banco As Database ' variavel que irá fazer a conexão entre a aplicação e o banco de dados, por meio dela faremos os comandos select, delete e update
Public dataset As recordset ' variavel cria uma cópia na memória da tabela

Function Conecta()
Set banco = CurrentDb ' inicializa a várial banco local
End Function

Function Valida_selecao()
Set dataset = banco.OpenRecordset(Comando, dbOpenDynaset) ' incializa dataset, e executa o comando passado pela variável comando e preenche o dataset na memória
End Function

O dataset somente é fechado quando fecho a aplicação.

grato pela ajuda.

coloque
txtValServ = dataset("valServico")
txtValEmol = dataset("valEmol)
txtDtEmol = dataset("dtPgEmol")
txtAteste = dataset("ateste")
txtOfCanc = dataset("ofCanc")
txtDtExp = dataset("dtOfCanc")
txtDtDev = dataset("dtDevCanc")
txtDtInt = dataset("dtIntimacao")
ccbObs1 = dataset("obs1")
ccbObs2 = dataset("obs2")

O que dá
msgbox dataset("servico") ?
dataset("dtPgServ") ?

Valeu Alexandre,

Realmente eu tinha esquecido de colocar o dataset antes dos campos. O outro problema tb resolvi com uma formatação de campo da tabela e do formulário.

Obrigado