[Resolvido]retornar mensagem após executar uma consulta atualização

Estou executando uma consulta atualização onde é solicitado ao usuário 2 informações, numero da caixa de origem e o numero da caixa que será atualizado.

existe a possibilidade de no access, ser retornado uma mensagem tipo msgbox, informado que a atualização foi executada com exito ou não?

como eu colocaria essa consulta no codigo? lembrando que tenho 3 input do usuário.

na consulta em sql está assim

UPDATE tbcadcaixa SET tbcadcaixa.ncaixa = [Alterar para caixa]
WHERE (((tbcadcaixa.ncaixa)=[Nº da caixa Origem]) AND ((tbcadcaixa.datacadastro)=[Data do cadastro - ex 01/01/2014]));

Avelino

muito obrigado, mas segui o seu caminho das pedras e fiz da seguinte forma que deu certinho

Private Sub cmdalterar_Click()
Dim bd As DAO.Database
Dim xcod1 As Variant
Dim xcod2 As Variant
Dim xcod3 As Variant
'Passando o método para a variável bd
Set bd = CurrentDb

xcod1 = InputBox("Informe o Nº da Caixa que receberá os Processos." & vbCrLf & "(Nº da Caixa de Destino).", "Alteração do Nº de Caixa")
xcod2 = InputBox("Informe o Nº da Caixa que está o Processo no sistema." & vbCrLf & "(Nº da Caixa de Origem).", "Alteração do Nº de Caixa")
xcod3 = InputBox("Informe a Data que foi cadastrada no sistema pelo usuário." & vbCrLf & "(Data do tipo dd/mm/aaaa).", "Alteração do Nº de Caixa")

If (xcod1 = Empty Or StrPtr(xcod1) = 0) Or (xcod2 = Empty Or StrPtr(xcod2) = 0) Or (xcod3 = Empty Or StrPtr(xcod3) = 0) Then
MsgBox "Você cancelou ou clicou no botão OK sem entrar com o valor...!", vbCritical, "Atenção"
Else
'Executando a consulta de Exclusão
bd.Execute "UPDATE tbcadcaixa SET tbcadcaixa.ncaixa = '" & xcod1 & "' " & _
"WHERE tbcadcaixa.ncaixa = '" & xcod2 & "' AND tbcadcaixa.datacadastro = CDate('" & xcod3 & "')"
'Informando a quantidade de registros excluídos
MsgBox "Foram Alterados " & bd.RecordsAffected & " registros...", vbInformation, "Aviso"
End If
End Sub