[Resolvido]Deletar registros de uma ou mais tabelas via código vba

Saudações pessoal! Estou de volta para mais uma dúvida.

Criei um sistema para controle de pedidos interno e externo.
No externo coloquei esse código no botão para enviar os dados para o sistema de pedido interno.
Envia os dados certos porem eu quero que ao enviar esses registros sejam deletados em seguida.
----------------------------------------------------------------------
Private Sub cmd_transferOperacao_Click()

On Error GoTo Err_cmd_transferOperacao_Click

If MsgBox("Deseja transferir dados agora?", vbYesNo) = vbYes Then

DoCmd.SetWarnings False

DoCmd.OpenQuery "Acre_Pedidos" ----Aqui dá erro, envia os dados mas não apaga---
DoCmd.OpenQuery "Acre_DetalhePedidos"

MsgBox ("Dados transferidos e sincronizados com sucesso!"), vbInformation, "Tecnologia ISDTS"

CorrentDb.Execute "DELETE * from tbl_detalhepedidos"
CorrentDb.Execute "DELETE * from tbl_pedidos"

Else

MsgBox ("Transferência cancelada"), vbInformation, "Tecnologia ISDTS"

End If

Exit_cmd_transferOperacao_Click:
Exit Sub
Err_cmd_transferOperacao_Click:
MsgBox "Sem conexão com a rede.", vbCritical, "A V I S O !"
Resume Exit_cmd_transferOperacao_Click

End Sub

---------------------------------------------------------------------------

olá MarcosXP, Crie uma consulta de exclusão e execute ela apos o código de envio.

Usei uma consulta exclusão como o amigo sugeriu e funcionou muito bem, obrigado!