[Resolvido]Ignorar erro sistema

Bom dia! Prezados colegas, executo o código abaixo através de um botão no meu form.

Código:

Private Sub Comando39_Click()
If IsNull(Me.CONT) Then
Me.CONT = "ATUALIZAR CONTATO"
Else
DoCmd.RunCommand acCmdSaveRecord
CurrentDb.Execute "INSERT INTO cadcont (COD,empr,cont,depto,cargo,email,TEL1,TEL2,CEL1,CEL2) VALUES ('" & Me.cod & "','" & Me.EMPR & "','" & Me.CONT & "','" & Me.DEPTO & "','" & Me.CARGO & "','" & Me.EMAIL & "','" & Me.TEL1 & "','" & Me.TEL2 & "','" & Me.CEL1 & "','" & Me.CEL2 & "')"
  CurrentDb.Execute "INSERT INTO contatos1 ([Primeiro nome],[Empresa],[Departamento],[Cargo],[Rua do endereço comercial],[Cidade do endereço comercial],[Estado do endereço comercial],[cep do endereço comercial],[telefone],[telefone comercial2],[telefone celular],[número do pager],[fax comercial],[email eletrônico],[página da web],[Nome para exibição],[Arquivar como]) values ( '" & UCase(Me!CONT) & "','" & UCase(Me!EMPR) & "','" & StrConv(Me.DEPTO, vbProperCase, 3) & "','" & StrConv(Me.CARGO, vbProperCase, 3) & "','" & UCase(Me.END) & "','" & StrConv(Me.CID, vbProperCase, 3) & "','" & UCase(Me.UF) & "','" & Me.CEP & "','" & Me!TEL1 & "','" & Me!TEL2 & "','" & Me!CEL1 & "','" & Me!CEL2 & "','" & Me!FAX & "','" & LCase(Me.EMAIL) & "','" & LCase(Me.SITE) & "','" & UCase(Me.CONT) & "','" & UCase(Me.CONT) & "')"
  msgbox "Cadastro Empresa Realizado com Sucesso", vbInformation + vbOKOnly, "Hespérides"
DoCmd.Close
Forms!cadped.Visible = True
End If
End Sub

Após esta linha " CurrentDb.Execute "INSERT INTO contatos1....", dá uma mensagem de erro. O registro fica salvo, tudo certo, mas não executa o restante do código.
Algum dos colegas poderia me dar uma luz?
Desde já, agradeço imensamente a atenção.

Bom dia.
Sim, dá um erro. Mas que erro?
Todo erro erro gerado tem um número e uma descrição.
Qual o nome do formulário onde executa esse código?

Marcelo, primeiramente obrigado pelo retorno.

O nome do form é "cademprpedprod"

Eu utilizo para salvar simultaneamente os dados no meu bd e no outlook.
Ele dá o erro '3033', porém salva perfeitamente os dados em ambos.


Porém o código para, não exibe a msgbox nem fecha o form.

Esse erro parece ser relacionado ao antigo MDW.
Coisas do Access 2003, mas pela interface parece 2010...

Enfim, tente saltar o erro adicionando essa linha em vermelha
no local indicado:

Private Sub Comando39_Click()
On Error Resume Next
If IsNull(Me.CONT) Then

Boa tarde

Teste, não tenho certeza ...

Está assim:

DoCmd.Close
Forms!cadped.Visible = True

Altere para:

Forms!cadped.Visible = True
DoCmd.Close

Amigos, obrigado pela atenção e ajuda.

O problema foi resolvido conforme sugestão do amigo Marcelo.

Prezado Assis, no meu bd preciso obrigatóriamente fechar este form primeiro, pq o "cadped" está suspenso, e só retorna após o fechamento do form atual.

Mais uma vez, obrigado a todos pela ajuda!

Grato pelo retorno. O Fórum agradece.